<% Sub DoCount ' ### Updates the totals Table strSQl ="Update totals set totals.U_Count=totals.U_Count + 1" my_conn.Execute (strSQL) End Sub Sub ShowForm() %> Serveis Veterinaris Baix Llobregat - Profesionales - Foro
serveis veterinaris serveis veterinaris
menú opciones

 

  

Volver al Inicio

  

Registro para <% =BBTitle %>

<% End Sub %> <% If Request.QueryString("mode") <> "doit" then Call ShowForm Else Function ChkString(string) if string = "" then string = " " ChkString = Replace(string, "'", "''") End Function Err_Msg = "" if Request.Form("name") = "" then Err_Msg = Err_Msg & "
  • Debe escoger un nombre de usuario
    • " if Request.Form("password") = "" then Err_Msg = Err_Msg & "
  • Debe escoger una contraseña
    • " if Request.Form("password") <> Request.Form("password2") then Err_Msg = Err_Msg & "
  • Las contraseñas no concuerdan.
    • " if Request.Form("email") = "" then Err_Msg = Err_Msg & "
  • Debe escribir una dirección de e-mail.
    • " set my_conn= Server.CreateObject("ADODB.Connection") my_Conn.Open ConnString strSql = "Select M_Name from members where M_Name = '" & Request.Form("name") &"'" set rs = my_conn.Execute (StrSql) if rs.bof and rs.eof then ' OK Else Err_Msg = Err_Msg & "
  • El Nombre de Usuario ya está en uso. Por favor, escoja otro
    • " End If rs.close set rs = nothing if Err_Msg = "" then strSql = "insert into members (M_Name, M_Password, M_Email, M_Country, M_Sig, M_ICQ, M_Posts, M_Homepage) Values ('" strSql = StrSQl & ChkString(Request.Form("name")) & "', '" strSql = StrSQl & ChkString(Request.Form("password")) & "', '" strSql = StrSQl & ChkString(Request.Form("email")) & "', '" strSql = StrSQl & ChkString(Request.Form("country")) & "', '" strSql = strSQL & ChkString(Request.Form("sig")) & "', '" strSql = strSQL & ChkString(Request.Form("ICQ")) & "', " strSql = strSQL & "0, '" strSql = StrSQl & ChkString(Request.Form("homepage")) & "')" my_conn.Execute (StrSql) docount Else %>

    Ha habido un problema con sus datos -

      <%= Err_Msg %>
    <% call ShowForm On Error Resume next my_conn.Close set my_conn = nothing Response.End End If %>

    ¡Se ha completado su registro!

    Volver al Foro
    <% End If On Error Resume next my_conn.Close set my_conn = nothing %>

     

    Copyright © 2000 Serveis Veterinaris Baix Llobregat
    Doctor Barraquer, 27 - 08750 Molins de Rei
    Tel. 93 668 21 22 - Fax. 93 668 21 22   eulalia@veterinaris.com
    Diseño IBS

    Ir al foro de discusión
    viejoordenador.gif (5117 bytes)

    Consulta Veterinaria Online, no te pierdas esta  posibilidad:

    PERROS - GATOS
    EXÓTICOS

    ¿TE GUSTAN LOS DEBATES?

    Noticias de prensa

    LEE nuestras noticias Y EXPRESA tu opinión.
    ¿ESTÁS BUSCANDO
    un nuevo amigo?. ¿HAS PERDIDO a tu mascota?

    La Protectora

    ¡Cuéntanoslo.
    ENTRA en la casa!

    ¿POR QUÉ VACUNAMOS?

    A nuestros animales de compañía.
    ¡No consigues medicar a tu animal!

    SIGUE NUESTROS CONSEJOS

    ¿Sabes qué son?

    LAS GLANDULAS ANALES