<%@ 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 %>
 

Encuentro sobre emprendizaje social a lo largo de toda la vida
Bizitza osoko ekintzailetza sozialiari buruzko topaketa

Izena-emateko Buletina / Boletín de inscripción

Zure inprimakia behar bezala bete da

Su inscripción se ha realizado correctamente

 
<%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=176.31.228.70;Database=qn309;uid=TEKI_Edex;pwd=3487.D-s;" strSQL = "insert into mailing0039 (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 %>