<%@ Language=VBScript %> <% '-- Evitar que se utilice la caché con esta página Response.Expires = 0 'Campos Obligatorios en la validación aTitulos =Array("nombreclub", _ "direccion", _ "contacto", _ "provincia") nMax = Ubound(aTitulos) If Request.Form("hfrmAnuncio") = "hfrmAnuncio" Then Set miconexion = Server.CreateObject("ADODB.Connection") miconexion.ConnectionString = "driver={SQL Server};server=217.76.131.36;uid=qq723;pwd=zm002;database=qq723" miconexion.Open Set SqlCommand = Server.CreateObject("ADODB.Command") SqlCommand.ActiveConnection = miconexion SqlCommand.CommandText = "SELECT max(ID) ID FROM clubes" Set RSMaxclubes = SqlCommand.execute nID = 1 if RSMaxclubes("ID") <> "" then nID = RSMaxclubes("ID") + 1 end if sSql = "" sSql = sSql & "INSERT INTO clubes (" sSql = sSql & "id, fecha, ESTADO, NOMBRECLUB, URL, EMAIL, PROVINCIA, LOCALIDAD, DIRECCION, TELEFONO, CONTACTO, " sSql = sSql & "CPOSTAL, POBLACION, AUTORIZO, COMENTARIOS, FOTO " sSql = sSql & " ) VALUES (" sSql = sSql & nID & "," sSql = sSql & "'" & year(now) & "/" & day(now) & "/" & month(now) & "', " sSql = sSql & "'B', " 'Borrador sSql = sSql & "'" & request("nombreclub") & "', " sSql = sSql & "'" & request("url") & "', " sSql = sSql & "'" & request("email") & "', " sSql = sSql & "'" & request("provincia") & "', " sSql = sSql & "'" & request("localidad") & "', " sSql = sSql & "'" & request("direccion") & "', " sSql = sSql & "'" & request("telefono") & "', " sSql = sSql & "'" & request("contacto") & "', " sSql = sSql & "'" & request("cpostal") & "', " sSql = sSql & "'" & request("poblacion") & "', " sSql = sSql & "'" & request("autorizo") & "', " sSql = sSql & "'" & request("comentarios") & "', " sSql = sSql & "'nodisponible.jpg' " sSql = sSql & " ) " 'response.write (sSQL) miconexion.execute sSQL miconexion.Close response.redirect ("gracias.htm") End IF %> Desiertoymontana.COM Tu portal del Todo Terreno
HOME Contacta  Atención al cliente 91 504 1313
 
Home > Clubes >Formulario de alta de clubes
IEn Desierto y montaña te damos la oportunidad de dar de alta tu club de Todo Terreno.
 
  Formulario de Clubes
Anterior  
  Envíanos tu club, comentarios, fotografías, etc.
Obligatorio campos con asterisco (*)
 
*Nombre del Club:
 
 
E-mail:
 
 
Página web :
 
 
*Dirección de la sede:
 
 
* Provincia:
 
 
Código Postal :
 
 
Población:
 
 
Teléfono de contacto:
 
 
Persona de contacto*:
 
 
Cuéntanos algo sobre tu club:
 
 
 
¿Deseas recibir información sobre novedades
y noticias de Desierto y montaña?
 
Condiciones Generales
Enviar una foto
Home | Contáctanos | Disclaimer | Publicidad
Desierto y Montaña © 2002 Todos los derechos reservados
Diseño.: ZM Factory