%@ Language="VBScript" %>
<% Option Explicit %>
<%
function EncodeUTF8(s)
dim i
dim c
i = 1
do while i <= len(s)
c = asc(mid(s,i,1))
if c >= &H80 then
s = left(s,i-1) + chr(&HC2 + ((c and &H40) / &H40)) + chr(c and &HBF) + mid(s,i+1)
i = i + 1
end if
i = i + 1
loop
EncodeUTF8 = s
end function
function DecodeUTF8(s)
dim i
dim c
dim n
i = 1
do while i <= len(s)
c = asc(mid(s,i,1))
if c and &H80 then
n = 1
do while i + n < len(s)
if (asc(mid(s,i+n,1)) and &HC0) <> &H80 then
exit do
end if
n = n + 1
loop
if n = 2 and ((c and &HE0) = &HC0) then
c = asc(mid(s,i+1,1)) + &H40 * (c and &H01)
else
c = 191
end if
s = left(s,i-1) + chr(c) + mid(s,i+n)
end if
i = i + 1
loop
DecodeUTF8 = s
end function
'To remove HTML tags you can use
Function RemoveHTMLTagsFromStr( strText )
'removes all html
'removes all tabs
' removes all carriage returns
Dim nPos1
Dim nPos2
nPos1 = InStr(strText, "<")
Do While nPos1 > 0
nPos2 = InStr(nPos1 + 1, strText, ">")
If nPos2 > 0 Then
strText = Left(strText, nPos1 - 1) & Mid(strText, nPos2 + 1)
Else
Exit Do
End If
nPos1 = InStr(strText, "<")
Loop
strText = replace(strText, vbTab, "")
strText = replace(strText, vbcrlf, "")
RemoveHTMLIParser = strText
End Function
%>
Izena Emateko Buletina / Boletín de Inscripción
<%
dim Apellidos
dim Nombre
dim Profesion
dim Entidad
dim Direccion
dim Poblacion
dim Provincia
dim Telefono
dim Fax
dim Email
dim Web
%>
<%Response.charset="utf-8"%>
<%
Apellidos=Request.Form("Abizenak - Apellidos")
Nombre=Request.Form("Izena - Nombre")
Profesion=Request.Form("Lanbidea - Profesion")
Entidad=Request.Form("Entitatea - Entidad")
Direccion=Request.Form("Helbidea - Dirección")
Poblacion=Request.Form("Herria - Población")
Provincia=Request.Form("Probintzia - Provincia")
Telefono=Request.Form("Telefonoa - Teléfono")
Fax=Request.Form("Fax - Fax")
Email=Request.Form("Helbide elektronikoa - Email")
Web=Request.Form("Web Gunea - Web")
Dim oConn
Dim ConexI
Dim strSQL
set ConexI= Server.CreateObject("ADODB.Connection")
conexI.Provider = "sqloledb"
conexI.Open "driver={SQLServer};server=207.234.185.155;Database=qn309;uid=TEKI_Edex;pwd=3487.D-s;"
strSQL = "insert into Zerbikasays (Apellidos, Nombre, Profesion, Entidad, Direccion, Poblacion, Telefono, Fax, Email, Web) values ('"& Apellidos &"','" & Nombre & "','" & Profesion & "','"& Entidad &"', '"& Direccion &"','"& Poblacion &"','"& Telefono &"','"& Fax &"','"& Email &"','"& Web &"' )"
Response.write "" & DecodeUTF8(strSQL) & "
"
conexI.Execute strSQL
conexI.Close
set oConn = nothing
%>