<%if request.querystring("action")<>"AJAX" then%>
Adama :: Compra online
<%
if request.querystring("action")<>"new" then
%>
<%end if%>
Si está interesado en adquirir alguno de nuestros productos, no dude en ponerse en contacto con nosotros.
<%end if
if request.querystring("action")="new" then
'if request.ServerVariables("HTTP_REFERER")<> "http://www.tabxbox.com/crack/form.asp?alta=1" then
' session("jugador")=""
' response.redirect "form.asp"
'end if
errores=false
nombre=limpia(Request.Form("nombre"))
apellidos=limpia(Request.Form("apellidos"))
direccion=limpia(Request.Form("direccion"))
cp=limpia(Request.Form("cp"))
poblacion=limpia(Request.Form("codpoblacion"))
provincia=limpia(Request.Form("codprovincia"))
'pais=limpia(Request.Form("pais"))
pais="ESPAÑA"
email=limpia(Request.Form("email"))
telefono=limpia(Request.Form("telefono"))
consola=limpia(Request.Form("consola"))
carro=""
for each elemento in request.form
if request.form(elemento)<>"undefined" then
carro=carro&" "&elemento&": "&request.form(elemento)&" "
else
carro=carro&" "&elemento&": - "
end if
next
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "smtp.to2en1.com"
Mail.Username = "ubu324c"
Mail.Password = "Macaco17"
Mail.From = request.form("email")
Mail.FromName = request.form("nombre")
Mail.AddAddress "info@adama.es"
Mail.Subject = "Nuevo correo recibido Amada"
Mail.Ishtml=True
Mail.Body = carro
strErr = ""
bSuccess = False
On Error Resume Next
Mail.Send
If Err <> 0 Then ' error occurred
response.write Err.Description
End If
Set Mail = nothing
on error goto 0
err.clear
response.write "Gracias por tu mensaje. Nos pondremos en contacto contigo."
elseif request.querystring("action")="AJAX" then
set sb=new stringbuilder
set rs=OPENRS("","SELECT IdPoblacion, Nombre FROM Poblaciones WHERE IdProvincia="&null2number(request.querystring("idprov")))
if not rs.eof then
mitabla=rs.getrows
end if
rs.close:set rs=nothing
if isarray(mitabla) then
for i=0 to UBOUND(mitabla,2)
sb.append ""
next
end if
set mitabla=nothing
response.write sb.tostring()
set sb=nothing
else
%>
<%end if
if request.querystring("action")<>"AJAX" then
%>
