codice:
<%@ Language=VBScript %>
<%
'*************************************************************************
Option explicit
Response.Buffer = true
%>
<%
'work fields
dim formID
dim textBody
dim arrayErrors
Dim emailSubject,tipoRicerca, msg
'Database
dim mySQL, conntemp,cn, rs, rs2,rstemp, rstemp2
'Modella
dim nome,cognome,nomeArte,nationality,datadinascita,luogodinascita,indirizzo,cap,city,region,telefonofisso,cellulare, fotoScheda
dim codicefiscale,password,email,condizioniuso,newsletter
Dim altrelingueEN
Dim studiEN,interessiEN,esperienzeEN
Dim altezza,height,peso,weight,seno,vita,fianchi,taglia,size,tagliareggiseno,numeroscarpe,colorecapelli,haircolor,lunghezzacapelli,hairlenght,coloreocchi,eyecolor,carnagione,skincolor
Dim topless,nudoartistico,metart,nudoerotico,bodypainting,bondage
Dim fashion,modamare,intimo,glamour,gothicdark,fetish, indossatrice,hostess
Dim hostessfieristica,hostesscongressuale,tourleader,promoter,ragazzaimmagine,cubista
Dim ballerina,ballerinalapdance,valletta,presentatrice,attrice,cantante,musicista,comparsa,performer
Dim status
'Session
dim idModella
Dim id
'*************************************************************************
'Open Database Connection
call openDb()
'Store Configuration
if loadConfig() = false then
call errorDB(langErrConfig,"")
end if
'Get/Set Modelle Session
idModella = sessionModelle()
'Check if the session is still active
'if isNull(id) then
' response.redirect "sysMsg-eng.asp?errMsg=" & server.URLEncode(langErrModelleSession)
'end if
msg = trim(Request.QueryString("msg"))
'Get Form ID
formID = trim(Request.Form("formID"))
if formID = "01" Then
nome = validHTML(request.form("nome"))
cognome = validHTML(request.form("cognome"))
nomeArte = validHTML(request.form("nomeArte"))
nationality = validHTML(request.form("nationality"))
datadinascita = validHTML(request.form("datadinascita"))
luogodinascita = validHTML(request.form("luogodinascita"))
indirizzo = validHTML(request.form("indirizzo"))
cap = validHTML(request.form("cap"))
city = validHTML(request.form("city"))
region = validHTML(request.form("region"))
telefonofisso = validHTML(request.form("telefonofisso"))
cellulare = validHTML(request.form("cellulare"))
codicefiscale = validHTML(request.form("codicefiscale"))
password = validHTML(request.form("password"))
email = validHTML(request.form("email"))
altrelingueEN = validHTML(request.form("altrelingueEN"))
studiEN = validHTML(request.form("studiEN"))
interessiEN = validHTML(request.form("interessiEN"))
esperienzeEN = validHTML(request.form("esperienzeEN"))
height = validHTML(request.form("height"))
weight = validHTML(request.form("weight"))
seno = validHTML(request.form("seno"))
vita = validHTML(request.form("vita"))
fianchi = validHTML(request.form("fianchi"))
size = validHTML(request.form("size"))
tagliareggiseno = validHTML(request.form("tagliareggiseno"))
numeroscarpe = validHTML(request.form("numeroscarpe"))
haircolor = validHTML(request.form("haircolor"))
hairlenght = validHTML(request.form("hairlenght"))
eyecolor = validHTML(request.form("eyecolor"))
skincolor = validHTML(request.form("skincolor"))
topless = checkBoxControllo(validHTML(request.form("topless")))
nudoartistico = checkBoxControllo(validHTML(request.form("nudoartistico")))
metart = checkBoxControllo(validHTML(request.form("metart")))
nudoerotico = checkBoxControllo(validHTML(request.form("nudoerotico")))
bodypainting = checkBoxControllo(validHTML(request.form("bodypainting")))
bondage = checkBoxControllo(validHTML(request.form("bondage")))
fashion = checkBoxControllo(validHTML(request.form("fashion")))
modamare = checkBoxControllo(validHTML(request.form("modamare")))
intimo = checkBoxControllo(validHTML(request.form("intimo")))
glamour = checkBoxControllo(validHTML(request.form("glamour")))
gothicdark = checkBoxControllo(validHTML(request.form("gothicdark")))
fetish = checkBoxControllo(validHTML(request.form("fetish")))
indossatrice = checkBoxControllo(validHTML(request.form("indossatrice")))
hostess = checkBoxControllo(validHTML(request.form("hostess")))
hostessfieristica = checkBoxControllo(validHTML(request.form("hostessfieristica")))
hostesscongressuale = checkBoxControllo(validHTML(request.form("hostesscongressuale")))
tourleader = checkBoxControllo(validHTML(request.form("tourleader")))
promoter = checkBoxControllo(validHTML(request.form("promoter")))
ragazzaimmagine = checkBoxControllo(validHTML(request.form("ragazzaimmagine")))
cubista = checkBoxControllo(validHTML(request.form("cubista")))
ballerina = checkBoxControllo(validHTML(request.form("ballerina")))
ballerinalapdance = checkBoxControllo(validHTML(request.form("ballerinalapdance")))
valletta = checkBoxControllo(validHTML(request.form("valletta")))
presentatrice = checkBoxControllo(validHTML(request.form("presentatrice")))
attrice = checkBoxControllo(validHTML(request.form("attrice")))
cantante = checkBoxControllo(validHTML(request.form("cantante")))
musicista = checkBoxControllo(validHTML(request.form("musicista")))
comparsa = checkBoxControllo(validHTML(request.form("comparsa")))
performer = checkBoxControllo(validHTML(request.form("performer")))
'Nome
if len(nome) = 0 then
arrayErrors = arrayErrors & "|nome"
end If
'email
if len(email) = 0 then
arrayErrors = arrayErrors & "|email"
end If
'password
if len(password) = 0 then
arrayErrors = arrayErrors & "|password"
end If
'There were no errors
if len(trim(arrayErrors)) = 0 then
'Controlla se l'indirizzo email esiste già
mySQL = "SELECT id " _
& "FROM modelle " _
& "WHERE email = '" & validSQL(email,"A") & "' "
if not isNull(idModella) then
mySQL = mySQL & "AND id <> " & validSQL(idModella,"I")
end if
set rs2 = openRSexecute(mySQL)
if not rs2.EOF then
response.redirect "sysMsg-eng.asp?errMsg=" & server.URLEncode(langErrEmailUsed)
end if
call closeRS(rs2)
'Update utente record
mySQL = "UPDATE modelle SET " _
& "nome = '" & validSQL(nome,"A") & "', " _
& "cognome = '" & validSQL(cognome,"A") & "', " _
& "nomeArte = '" & validSQL(nomeArte,"A") & "', " _
& "nationality = '" & validSQL(nationality,"A") & "', " _
& "datadinascita = '" & validSQL(datadinascita,"A") & "', " _
& "luogodinascita = '" & validSQL(luogodinascita,"A") & "', " _
& "indirizzo = '" & validSQL(indirizzo,"A") & "', " _
& "cap = '" & validSQL(cap,"A") & "', " _
& "city = '" & validSQL(city,"A") & "', " _
& "region = '" & validSQL(region,"A") & "', " _
& "telefonofisso = '" & validSQL(telefonofisso,"A") & "', " _
& "cellulare = '" & validSQL(cellulare,"A") & "', " _
& "codicefiscale = '" & validSQL(codicefiscale,"A") & "', " _
& "password = '" & validSQL(password,"A") & "', " _
& "email = '" & validSQL(email,"A") & "', " _
& "altrelingueEN = '" & validSQL(altrelingueEN,"A") & "', " _
& "studiEN = '" & validSQL(studiEN,"A") & "', " _
& "interessiEN = '" & validSQL(interessiEN,"A") & "', " _
& "esperienzeEN = '" & validSQL(esperienzeEN,"A") & "', " _
& "height = '" & validSQL(height,"A") & "', " _
& "weight = '" & validSQL(weight,"A") & "', " _
& "seno = '" & validSQL(seno,"A") & "', " _
& "vita = '" & validSQL(vita,"A") & "', " _
& "fianchi = '" & validSQL(fianchi,"A") & "', " _
& "size = '" & validSQL(size,"A") & "', " _
& "tagliareggiseno = '" & validSQL(tagliareggiseno,"A") & "', " _
& "numeroscarpe = '" & validSQL(numeroscarpe,"A") & "', " _
& "haircolor = '" & validSQL(haircolor,"A") & "', " _
& "hairlenght = '" & validSQL(hairlenght,"A") & "', " _
& "eyecolor = '" & validSQL(eyecolor,"A") & "', " _
& "skincolor = '" & validSQL(skincolor,"A") & "', " _
& "topless = True , " _
& "nudoartistico = " & validSQL(nudoartistico,"A") & ", " _
& "metart = " & validSQL(metart,"A") & ", " _
& "nudoerotico = " & validSQL(nudoerotico,"A") & ", " _
& "bodypainting = " & validSQL(bodypainting,"A") & ", " _
& "bondage = " & validSQL(bondage,"A") & ", " _
& "fashion = " & validSQL(fashion,"A") & ", " _
& "modamare = " & validSQL(modamare,"A") & ", " _
& "intimo = " & validSQL(intimo,"A") & ", " _
& "glamour = " & validSQL(glamour,"A") & ", " _
& "gothicdark = " & validSQL(gothicdark,"A") & ", " _
& "fetish = " & validSQL(fetish,"A") & ", " _
& "indossatrice = " & validSQL(indossatrice,"A") & ", " _
& "hostess = " & validSQL(hostess,"A") & ", " _
& "hostessfieristica = " & validSQL(hostessfieristica,"A") & ", " _
& "hostesscongressuale = " & validSQL(hostesscongressuale,"A") & ", " _
& "tourleader = " & validSQL(tourleader,"A") & ", " _
& "promoter = " & validSQL(promoter,"A") & ", " _
& "ragazzaimmagine = " & validSQL(ragazzaimmagine,"A") & ", " _
& "cubista = " & validSQL(cubista,"A") & ", " _
& "ballerina = " & validSQL(ballerina,"A") & ", " _
& "ballerinalapdance = " & validSQL(ballerinalapdance,"A") & ", " _
& "valletta = " & validSQL(valletta,"A") & ", " _
& "presentatrice = " & validSQL(presentatrice,"A") & ", " _
& "attrice = " & validSQL(attrice,"A") & ", " _
& "cantante = " & validSQL(cantante,"A") & ", " _
& "musicista = " & validSQL(musicista,"A") & ", " _
& "comparsa = " & validSQL(comparsa,"A") & ", " _
& "performer = " & validSQL(performer,"A") & " " _
& "WHERE id = " & validSQL(idModella,"I")
set rs = openRSexecute(mySQL)
call closeRS(rs)
emailSubject = langGenMailModificaDatiModella & nomeArte
textBody = "<font face=""verdana"" size=""2"">La modella:
"_
& "<Table border=1>"_
& "<tr><td>Nome d'arte:</td><td>" & nomeArte & "</td></tr>"_
& "<tr><td>Nome:</td><td>" & nome & "</td></tr>"_
& "<tr><td>Cognome:</td><td>" & cognome & "</td></tr>"
textBody = textBody & "</td></tr></table>
ha modificato i suoi dati sul sito www.modelle-nudo.com
"
'Email all'admin
'call sendmail (pCompany, pEmailSales, pEmailSales, emailSubject, textBody, 1,0)
response.redirect "elencoFoto.asp?id=" & idModella
end If
Else
' Recupera i dati corrente della modella
mySQL = "SELECT * " _
& "FROM modelle " _
& "WHERE id = " & validSQL(idModella,"I")
set rs2 = openRSexecute(mySQL)
if rs2.EOF then
response.redirect "sysMsg-eng.asp?errMsg=" & server.URLEncode(langErrEmailUsed)
end If
end if
%>
Rispondi quotando
