<% 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,7,4)) Call ConectarDb Dim strSQL Dim objCn 'conecto la DB cuando haga falta Dim objRs Set objRs = Server.CreateObject ("ADODB.Recordset") Dim objRs3 Set objRs3 = Server.CreateObject ("ADODB.Recordset") Call ConectarDb Dim strEmail Dim strCliPaso, strCliMsg, strPassMsg, strCliOpciones if Session("clienteID")<>"" then Response.Redirect("indexes.asp?id="&Session("clienteID")) end if strCliPaso = Request("paso") If strCliPaso="ok" then strSQL = "SELECT * FROM tClientes WHERE strEmail = '" & CStr(Request("emailc")) & "' AND strPass = '" & Cstr(Request("passc")) & "'" objRs.Open strSQL, objCn if objRs.bof or objRs.eof then strCliMsg = "****Error****" Else Session("razon") = objRs("strRazon") Session("nombreC") = objRs("strNombre") Session("apellidoC") = objRs("strApellido") Session("clienteID") = objRs("clienteID") Response.Redirect "indexes.asp?id="&objRs("clienteID") End if objRs.Close End if if strCliPaso="olvidoPass" then strEmail=Cstr(Request("mailc")) strSQL="SELECT * FROM tClientes WHERE strEmail='"&strEmail&"'" objRs3.Open strSQL,objCn if objRs3.EOF then strPassMsg = "****Error****" else EnviarEmailsPedido strPassMsg = "***Contraseña enviada***" end if objRs3.Close End if %> Club Rugby Seminario Tarazona
<%=Ucase(":: Zona de Socios")%>
" method="post"> <% If strCliMsg <> "" then %> <% End if %> " method="post"> <% If strPassMsg <> "" then %> <% End if %>
Introduzca su nombre de usuario(email) y su contraseña.
<%= strCliMsg %>
Email : 
Contraseña : 
¿Olvidó su contraseña? Introduzca su email y se la enviamos al instante a su correo electrónico.
<%= strPassMsg %>
Email : 
<% Sub EnviarEmailsPedido 'Mando el Email al cliente con los datos de su pedido Dim strFrom, strTo, strSubject, strBody strSubject = ":: Contraseña olvidada" strBody = "" strBody=strBody & "" strBody = strBody & "" strBody = strBody & " " strBody = strBody & " " ' strSQL = " SELECT * FROM tClientes WHERE strEmail='"&strEmail&"'" objRs.Open strSQL, objCn strBody = strBody & "
" strContenido=strContenido & "" strContenido=strContenido & "" strContenido=strContenido & "" strContenido=strContenido & "" strContenido=strContenido & "
" strBody = strBody & "" strBody = strBody & "
" strBody = strBody & "" strBody = strBody & "
" strBody = strBody & "Contraseña de Fenix Club de Rugby.

" strBody = strBody & "
" strBody = strBody & "
" strBody = strBody & "" strBody = strBody & "" strBody = strBody & "" strBody = strBody & "" strBody = strBody & "" strBody = strBody & "" strBody = strBody & "" strBody = strBody & "" strBody = strBody & "
Email: " & objRs("strEmail") & "
Password: " & objRs("strPass") & "
" strBody = strBody & "" objRs.Close ' ' Fin de la tabla del pedido SendEmail "info@rugbytarazona.com", strEmail, strSubject, strBody 'al cliente 'strEmail End Sub '============================================== '============================================== Sub SendEmail (strFrom, strTo, strSubject, strBody) on error resume next '============================ AspEmail =============== Dim objMail objMail = Server.CreateObject("Persits.MailSender") With objMail .Host = "smtp.rugbytarazona.com" .From = strFrom .AddAddress strTo .Username = "eao075c" .Password = "crst" .Subject = strSubject .Body = strBody .isHtml = true .Send End With Set objMail = Nothing '=========== Fin AspEmail============================ End Sub '============================================== %>