%@LANGUAGE="VBSCRIPT"%> <% Dim logos Set logos = Server.CreateObject("ADODB.Recordset") logos.ActiveConnection = MM_conn_STRING logos.Source = "SELECT a.* FROM LOGOS as a WHERE a.OCULTAR=0 ORDER BY a.ORDEN ASC" logos.CursorType = 0 logos.CursorLocation = 2 logos.LockType = 1 logos.Open() %> <% If (CStr(Request.Form("Send_email")) = "Send_email") Then 'ENVIO EMAIL CON CDOSYS ' Dim strBody, sFrom, urlmicrosoft strBody = "" smtpserver = "smtp.cnpremia.cat" 'smtpserver = "127.0.0.1" youremail = "cnpremia@cnpremia.cat" yourusername= "xcz049c" yourpassword = "11Wcnp73" 'Ahora colocamos la informacion adicional Dim iMsg Set iMsg = CreateObject("CDO.Message") 'Configuracion del servidor SMTP. urlmicrosoft = "http://schemas.microsoft.com/cdo/configuration/" iMsg.Configuration.Fields.Item (urlmicrosoft & "sendusing") = 2 iMsg.Configuration.Fields.Item (urlmicrosoft & "smtpserver") = smtpserver iMsg.Configuration.Fields.Item (urlmicrosoft & "smtpserverport") = 25 iMsg.Configuration.Fields.Item (urlmicrosoft & "smtpusessl") = False iMsg.Configuration.Fields.Item (urlmicrosoft & "smtpconnectiontimeout") = 60 'basic (clear-text) authentication iMsg.Configuration.Fields.Item (urlmicrosoft & "smtpauthenticate") = 1 iMsg.Configuration.Fields.Item (urlmicrosoft & "sendusername") = yourusername iMsg.Configuration.Fields.Item (urlmicrosoft & "sendpassword") = yourpassword iMsg.Configuration.Fields.Update iMsg.To = youremail iMsg.Subject = "SOLˇLICITUT INFORMACIĶ DES DE LA WEB DEL CLUB NATACIĶ PREMIĀ" iMsg.From = request.Form("CORREO") iMsg.Sender = youremail strBody = "
" strBody = strBody & "Dades del contacte:" & "
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||