Join s.n.c. - Soluzioni per l'azienda - Pubblicità e Visibilità
<%
codpres=Request.Form("codpres")
codice=request.form("codice")
set conn = server.createobject("adodb.connection")
conn.Open Session("ConnStr")
if (not codpres="") then
mail=Request.Form("mail")
if (not codice="") then
strpas = "'" & codice & "' ,'" & mail & "'"
set record = server.createobject("adodb.recordset")
strcod="Sp_RicercaCodice " & strpas
record.open strcod,conn
if (not record.eof) then
nome=trim(record(0).value)
cognome=trim(record(1).value)
azienda=trim(record(2).value)
mail=trim(record(3).value)
telefono=trim(record(4).value)
sito=trim(record(5).value)
id_carica=record(7).value
'Response.Write record(6).value
if ((record(6).value=1) or (( nome<>"") and ( cognome<>"") and ( azienda<>"") and ( mail<>"") and ( telefono<>"") and ( sito<>"") and ( id_carica<>0))) then
if record(6).value=0 then
set record = server.createobject("adodb.recordset")
strcod="Sp_InserisciVisitato " & "'" & codice & "'"
record.open strcod,conn
end if
set gradi = server.createobject("adodb.recordset")
strcod="Sp_CercaFile " & "'" & codice & "'"
gradi.open strcod,conn
%>
<%
else
presente=1
'nome=record(0).value
'cognome=record(1).value
'azienda=record(2).value
'mail=record(3).value
'telefono=record(4).value
'sito=record(5).value
'id_carica=record(7).value
end if
else
%>
<%
end if
else
presente=0
end if
else
if (not codice="") then
nome=Trim(Request.Form("nome"))
cognome=Trim(Request.Form("cognome"))
azienda=Trim(Request.Form("azienda"))
id_carica=Request.Form("carica")
mail=Trim(Request.Form("mail"))
telefono=Trim(Request.Form("telefono"))
sito=Trim(Request.Form("sito"))
presente=1
else
presente=0
codice=0
end if
end if
if presente=0 then
nome=""
cognome=""
azienda=""
id_carica="0"
mail=""
telefono=""
sito=""
end if
%>