<% Dim IdiomaPag IdiomaPag="es" Dim strUrl strUrl = Request.ServerVariables("URL") strUrl = Cstr(Mid(strUrl,2,4)) Dim strUrlPag strUrlPag = Request.ServerVariables("URL") strUrlPag = Cstr(Mid(strUrlPag,10,4)) Call ConectarDb Dim strSQL Dim objCn 'conecto la DB cuando haga falta Dim objRs Set objRs = Server.CreateObject ("ADODB.Recordset") Dim regUser Call ConectarDb '===== Variables a usar ========= Dim strNombre, strApellidos, strCodPostal, strLocalidad, strProvincia, strPais Dim strDomicilio, strTlfnMovil, strEMail, strComentarios, strAsunto Dim bolOk, strMsg, strContenido Dim bolAcepto '================================ Dim strOpciones strOpciones = Request("opt") Select Case strOpciones Case "new" 'Añadimos un nuevo mensaje al foro 'Antes de guardar los datos miramos que el e-mail introducido por el cliente sea el correcto bolOk = True If Request.Form("nombre") = "" then bolOk = False strMsg = strMsg & "***No ha introducido el nombre***
" strNombre = "" Else strNombre = Request.Form("nombre") End If If Request.Form("apellidos") = "" then bolOk = False strMsg = strMsg & "***No ha introducido los apellidos***
" strApellidos = "" Else strApellidos = Request.Form("apellidos") End If If Request.Form("movil")="" Then bolOk = False strMsg = strMsg & "***No ha introducido el nº Teléfono***
" strTlfnMovil = "" Else strTlfnMovil = Request.Form("movil") ENd if If not IsEmail(Request.Form("email")) then bolOk = False strMsg = strMsg & "***Inserta un e-mail válido***
" strEMail = "" Else strEMail = Request.Form("email") End If If Request.Form("asunto") = "" then bolOk = False strMsg = strMsg & "***No hay asunto***
" strAsunto = "" Else strAsunto = Request.Form("asunto") End If If Request.Form("comentarios") = "" then bolOk = False strMsg = strMsg & "***No hay ningún texto en el mensaje***
" strComentarios = "" Else strComentarios = Request.Form("comentarios") End If bolAcepto = Request.Form("bolAcepto") If bolOk then strContenido="" strContenido=strContenido & "" strContenido=strContenido &"" strContenido=strContenido &"" strContenido=strContenido & "" strContenido=strContenido & "" strContenido=strContenido & "" strContenido=strContenido &"" strContenido=strContenido &"" strContenido=strContenido &"" strContenido=strContenido &"" strContenido=strContenido &"" strContenido=strContenido &"" strContenido=strContenido &"" strContenido=strContenido &"" strContenido=strContenido &"" strContenido=strContenido &"" strContenido=strContenido &"" strContenido=strContenido &"" strContenido=strContenido &"" strContenido = strContenido & "" strContenido = strContenido & "" strContenido = strContenido & "" strContenido = strContenido & "" strContenido = strContenido & "" strContenido = strContenido & "" strContenido=strContenido &"" strContenido=strContenido &"" strContenido=strContenido &"" strContenido=strContenido &"" strContenido=strContenido &"" strContenido=strContenido &"" strContenido=strContenido &"" strContenido=strContenido &"" strContenido=strContenido &"" strContenido=strContenido &"" strContenido=strContenido &"" strContenido=strContenido &"" strContenido=strContenido &"
 
 
" strContenido = strContenido & "Don " & strNombre & " " & strApellidos & "
" strContenido = strContenido & "Email : " & strEMail & "
" if strTlfnMovil <> "" then strContenido = strContenido & "Teléfono de contacto : " & strTlfnMovil & "
" End if strContenido = strContenido & "Envía el siguiente comentario :
   " & strComentarios strContenido = strContenido & "
" if bolAcepto = True Then strContenido = strContenido & "Autorizando las comunicaciones comerciales por canales electrónicos.
" else strContenido = strContenido & "No autorizando las comunicaciones comerciales por canales electrónicos.
" end if strContenido = strContenido & "
©tenfox
" strContenido=strContenido &"" Enviar_Mensaje "info@rugbytarazona.com", strAsunto, strContenido strMsg = "***Su mensaje ha sido enviado. Muchas gracias***
 " strOpciones = "cont" Else strOpciones = "" End if End Select %> Club Rugby Seminario Tarazona
<%=UCase(":: Contacta con nosotros")%>
Si tienes interés en conocer mas a fondo este deporte, o incluso practicarlo, no tienes mas que llamar al 617 482 425 y preguntar por Carmelo.
Contamos contigo.
<% SELECT CASE strOpciones CASE "" %> " method="post"> <% END SELECT %>
Nombre:   
Apellidos:   
Teléfono:   
E-mail:   
Asunto:   
Comentario:   
   Acepto dar la autorización para las comunicaciones comerciales por canales electrónicos
<%=UCase("Club Seminario Rugby Tarazona")%>
 
Hurtado Garcia Obispo, 8
50500 - Tarazona
Avda. Clave, 29-35, portal 9 3º Izda
50004 - Zaragoza
Tlf: 617 482 425

e-mail: info@rugbytarazona.com
 
O mediante el formulario adjunto (los campos con * son optativos).
 
<% if strMsg <> "" then %> <%= strMsg %>
 
<% End if %>
<% '================================================================================================ Sub Enviar_Mensaje(mstrEMail, mstrTitulo, mstrTexto) on error resume next '============================ AspEmail =============== Dim objMail Set objMail = Server.CreateObject("Persits.MailSender") With objMail .Host = "smtp.rugbytarazona.com" .From = mstrEmail .AddAddress "info@rugbytarazona.com" .Username = "eao075c" .Password = "crst" .Subject = mstrTitulo .Body = mstrTexto .isHtml = true .Send End With Set objMail = Nothing ' '=========== Fin AspEmail============================ End Sub '================================================================================================ %>