Desiertoymontana.COM Tu portal del Todo Terreno

<%@ 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

	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:

Sí

¿Deseas recibir información sobre novedades
y noticias de Desierto y montaña?



Condiciones Generales

Enviar una foto

Home | Contáctanos | Disclaimer | Publicidad