sono molto interessato ma non ho ricevuto la tua email.
ti ripeto la mia

kenny82atemail.it

mi mandi una demo a kenny82(@)email.it

grazie 1000

avrei bisogno di uno script per escort che sia simile a escortsuperstars

• nella home vengono pubblicati gli annunci random come i loro (foto della stessa dimensione)
• una volta scelta la categoria escort - girls - trans si possono filtrare gli annunci come fanno loro

dal gestionale posso:

-aggiungere/eliminare/disattivare un escort

• vedere una lista generale di tutte le inserzioni

in ogni scheda escort posso

-selezionare con una check box se l'escort è nuova - verificata - in tour
-scrivere nome dell'escort
-età
-genere
-città
-telefono
-descrizone
-tour a
-sito web
-email

upload di max 20 foto

L'impaginazione di tale scheda una volta compilata sarà simile a quella che fa puntotrans
magari invece dei quadrati con i numeri delle thumbnail 80X80

Per la grafica va bene una semplice tabella scarna a farlo carino ci penso io...

Accettoo offerte e prezzi in pm

Grazie a tutti!

Ciao ragazzi, mi aiutate a trovare l'errore...
E da ieri che un mio script mi da questo errore, premetto che uso come database access.

error '80020009'
/admin_elenco_ricariche.asp, line 54

il codice è il seguente e la riga incriminata è in rosso!

grazie a tutti, siete mitici!

 <% 
   strconn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("mdb-database/lb.mdb") & ";Persist Security Info=False"
   set cn= server.createobject("ADODB.connection")
   Set rsc = Server.CreateObject("ADODB.Recordset")
   Set rso = Server.CreateObject("ADODB.Recordset")
   cn.open strconn  
   sz_sql = "SELECT * from ricariche order by data desc"
   rsc.Open sz_sql, cn
   do while not rsc.eof
    response.write("<tr>")
    response.write("<td>" & rsc(0) & "</td>")
    sz_sql="select * from utenti where id = " & rsc(1)
    rso.open sz_sql,cn
    response.write("<td>" & rsc(1) & " - " & rso("nome") & " " & rso("cognome") & "</td>")
    response.write("<td>" & rsc(2) & " ?</td>")
    response.write("<td>" & rsc(3) & "</td>")
    rsc.movenext
    rso.close
   loop
   rsc.close
   %>

Ciao a tutti, ho un problema con l'invio di un email di conferma, su hosting aruba, sembra funzionare tutto... ma l'email non arriva! sto impazzendo!! Di seguito il codice integrale della pagina... Vi prego aiutatemi!!

<%

strconn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("/mdb-database/lb.mdb") & ";Persist Security Info=False"
set cn= server.createobject("ADODB.connection")
Set rsc = Server.CreateObject("ADODB.Recordset")
cn.open strconn

'***controllo nome utente
sz_sql = "select * from utenti where utente = '" & request.form("txtUser") & "'"
rsc.Open sz_sql, cn
if not rsc.eof then
response.redirect "../error_reg.asp?id=user"
end if
rsc.close
'***controllo indirizzo mail
sz_sql = "select * from utenti where email = '" & request.form("txtMail") & "'"
rsc.Open sz_sql, cn
if not rsc.eof then
response.redirect "../error_reg.asp?id=mail"
end if
rsc.close
if request.form("txtUser")="" or request.form("txtPwd") ="" or request.form("txtPwdCheck") ="" or request.form("txtMail") ="" or request.form("txtMailCheck") ="" or request.form("txtNome") ="" or request.form("txtCogn")="" or request.form("txtInd") ="" or request.form("txtCom") ="" or request.form("txtCap") ="" then
response.redirect "../error_reg.asp?id=vuoti"
end if
if request.form("txtPwd") <> request.form("txtPwdCheck") then
response.redirect "../error_reg.asp?id=pwd_check"
end if
if InStr(request.form("txtMail"),".")=0 or InStr(request.form("txtMail"),"@")=0 then
response.redirect "../error_reg.asp?id=mail_novalida"
end if
if request.form("txtMail") <> request.form("txtMailCheck") then
response.redirect "../error_reg.asp?id=mail_check"
end if
if len(request.form("txtPwd"))<6 then
response.redirect "../error_reg.asp?id=pwd_len"
end if

'***creo codice attivazione
Dim Limite
Limite = 9999
Randomize()
codice1 = CInt((Limite - 1)*Rnd() + 1 )
codice2 = CInt((Limite - 1)*Rnd() + 1 )
codice3 = CInt((Limite - 1)*Rnd() + 1 )
codice4 = CInt((Limite - 1)*Rnd() + 1 )
codice_attivazione=codice & codice2 & codice3 & codice4

'***inserisco dati
sz_sql="insert into utenti (utente,pwd,codice_attivazione,email,nome,cognome,sesso,indirizzo,comune,provincia,cap,data_nascita,codice_fiscale,cellulare,data_reg) values "
sz_sql= sz_sql & " ('" & request.form("txtUser") & "','" & request.form("txtPwd") & "','" & codice_attivazione & "','" & request.form("txtMail") & "','" & request.form("txtNome") & "','" & request.form("txtCogn") & "','" & request.form("optSesso") & "','" & request.form("txtInd") & "','" & request.form("txtCom") & "','" & request.form("optProv") & "','" & request.form("txtCap") & "','"
sz_sql= sz_sql & request.form("optGG") & "-" & request.form("optMM") & "-" & request.form("optAA") & "','" & request.form("txtCF") & "','" & request.form("txtCel") & "','" & now() & "')"
cn.execute (sz_sql)
cn.close

'*** invio mail
invioA = request.form("txtMail")

'* voce da modificare con un indirizzo email che funga da mittente:
'* in caso di errore riceverete notifica a questo indirizzo un MAILER-DAEMON
'* dato che cdosys supporta questa notifica

invioDa = "Sito"

'------------fine modifiche necessarie------------------

'email=Request.Form("email")
'testo=Request.Form("testo")

corpoMessaggio = "<center><img src='hxxp://.sito.com/imm/logo.jpg'/></center><br /><br />Benvenuto sul sito!<br />" & vbCrLf
corpoMessaggio = corpomessaggio & "Clicca il seguente link (o copialo nel tuo browser internet) per attivare il tuo account :" & vbCrLf
corpoMessaggio = corpomessaggio & "<a href='hxxp://.sito.com/attiva_id.asp?codice=" & codice_attivazione & "'>hxxp://.sito.com/attiva_id.asp?codice=" & codice_attivazione & "</a>"

Dim iMsg, iConf, Flds

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
Flds("hxxp://schemas.microsoft.com/cdo/configuration/urlgetlatestversion") = True

mittente = "[email protected]"
destinatario = invioA
oggetto = "Attivazione Account Sito"
messaggio = corpoMessaggio

With iMsg

Set .Configuration = iConf

.From = mittente
.To = request.form("txtMail")
.Subject = oggetto

.HTMLBody = messaggio

.Send()

end with

set Flds = Nothing
set iConf = Nothing
set iMsg = Nothing

response.redirect "../reg_ok.asp?id=ok"

%>

Salve a tutti, questo è il mio primo messaggio su questo meraviglioso forum. Quindi chiedo scusa in anticipo per i miei eventuali errori inerenti le regole.

Dopo alcuni anni di lavoro in un noto sito di prenotazioni alberghiere ho deciso di aprire un sito di prenotazioni online.

Sto cercando disperatmente un buon sistema di booking, realizzato in php, mysql.

Sapete consigliarmi qualcosa o propormi qualche script realizzato da voi?

Grazie in Anticipo!