Query e ID utente

[RoRiccardo]

Salve a tutti!
Sono sempre ad anticipare di essere un programmatore della domenica con moglie e figli quindi chiedo venia per le mie lacune.
Il mio problema è questo.
Sto mettendo a punto un guestbook che nella fase di scrittura di un messaggio recupera l'ID utente e scrive automaticamente sotto il messaggio il nick name e l'indirizzo email.

Il problema è che i dati utente si trovano in una tabella diversa dal guestbook

Sono riuscito a recuperare i dati che mi interessano inserendoli nel form.
Mi sono accorto che sarebbe meglio inserire i dati dell'utente in automatico nella query che esegue la scrittura. mi aiutate?
Grazie

<input type="text" name="email" class="inmatning" size="50" style="border: 1px solid #88A0B8; " value="<%
sql2guest = "select * from users where user_id = "& to_sql(session("user_id"),"number") &""
set rs2guest = cn.execute(sql1guest)
%>

<%=rs2guest("username")%>
<%
rs2guest.Close
%>

La query è questa: Come posso fare a recuperare i dati di un utente che scrive da un'altra tabella?

<%
rsvisa.close
set rsvisa=nothing


case "addpost"
if request.form("namn") > "" and request.form("meddelande") > "" then

strnamn=CStr(request.form("namn"))
strurl=CStr(request.form("url"))
stremail=Cstr(request.form("email"))
strMeddelande=Cstr(request.form("meddelande"))
strprivate=Cstr(request.form("private"))
strDatum=Cstr(request.form("datum"))
strip=Request.ServerVariables("REMOTE_ADDR")

strMeddelande=Replace(strMeddelande,"[]","[img]images/glad.gif[/img]")
strMeddelande=Replace(strMeddelande,"[]","[img]images/ledsen.gif[/img]")
strMeddelande=Replace(strMeddelande,"[:V]","[img]images/arg.gif[/img]")
strMeddelande=Replace(strMeddelande,"[]","[img]images/ironi.gif[/img]")
strMeddelande=Replace(strMeddelande,"[]","[img]images/skratt.gif[/img]")
strMeddelande=Replace(strMeddelande,"[:O]","[img]images/oops.gif[/img]")
strMeddelande=Replace(strMeddelande,"[:V:]","[img]images/sur.gif[/img]")
strMeddelande=Replace(strMeddelande,"[8D]","[img]images/cool.gif[/img]")
strMeddelande=Replace(strMeddelande,"'","''")
strMeddelande=Replace(strMeddelande,chr(10),"
")
set rsword = connect.execute("select word from word")
Do While Not rsword.EOF
strMeddelande=Censur(strmeddelande,rsword("word"))
rsword.movenext
Loop


strRubrik=Replace(strRubrik,"'","''")
connect.execute ("insert into gastbok (namn, ip, url, email, meddelande, status) values('" & strnamn & "','" & strip & "','" & strurl & "','" & stremail & "','" & strMeddelande & "','" & strprivate & "')")
response.redirect("default.asp")
else
response.write(postcheck)
end if
end select
%></td>

[Roby_72]

Non so se ho capito bene...
Vuoi inserire in una tabella dati già presenti in un'altra?
Non è una buona regola... ma forse non ho ben capito.

Roby

[RoRiccardo]

Scusami!
Non sono stato certamente chiaro.
Dunque...
In un database
ho una tabella che raccoglie i dati utenti
ho un'altra tabella che si occupa di registrare i post di un guestbook.
Quello che vorrei fare è semplice a dire (per me) ma non a fare.
Vorrei fare in modo che nella pagina dove si posta un messaggio ci sia solo la casella testo perchè vorrei inserire automaticamente nella query i dati dell'utente. cioè nick name e email che pero' si trovano su un'altra tabella.

Spero che tu abbia capito
che ne dici si puo' fare?

[Roby_72]

Questa va bene:

sql2guest = "select * from users where user_id = "& session("user_id")
set rs2guest = cn.execute(sql1guest)
if not rs2guest.EOF then
email = rs2guest("email")
ecc...
end if
set rs2guest = nothing

Roby

[RoRiccardo]

Grazie Roby appena posso provo

[RoRiccardo]

Dunque...
Ho provato a fare un paio di prove ma non sono riuscito a mettere in pratica i tuoi suggerimenti.
Diciamo pure che quelle che ho definito lacune di Asp sono pure OCEANI!!!

Questa è la stringa originale del guestbook che io intendo modificare.
Come già detto (e riportato sopra) sono riuscito a prelevare i dati username e email da una tabella e a passarli come value nei form del guestbook.
Non sono certamente in grado di scrivere una stringa da solo! aiutami!
Come modifico questa stringa?

strRubrik=Replace(strRubrik,"'","''")
connect.execute ("insert into gastbok (namn, ip, url, email, meddelande, status) values('" & strnamn & "','" & strip & "','" & strurl & "','" & stremail & "','" & strMeddelande & "','" & strprivate & "')")
response.redirect("default.asp")
else
response.write(postcheck)
end if
end select
%>

[Roby_72]

Ma l'email vedo che già c'è.
Cos'altro devi aggiungere?

Roby

[RoRiccardo]

Questo è quanto la mia mente contorta e deviata è riuscita a partorire.
Naturalmente non funziona.
In pratica non capisco dove e come devo inserire il tuo codice.

le voci della tabella che devo prelevare sono username e lastname che andrebbero scritte nella tabella gastbok nei campi namn e email.
Ti chiedo umilmente scusa. per cio' che leggerai qui sotto e dello scempio che ho fatto del tuo codice.
Sono sulla buona strada? o sono perso nell'oceano?

<%
rsvisa.close
set rsvisa=nothing


case "addpost"

strurl=CStr(request.form("url"))
strMeddelande=Cstr(request.form("meddelande"))
strprivate=Cstr(request.form("private"))
strDatum=Cstr(request.form("datum"))
strip=Request.ServerVariables("REMOTE_ADDR")

strMeddelande=Replace(strMeddelande,"[]","[img]images/glad.gif[/img]")
strMeddelande=Replace(strMeddelande,"[]","[img]images/ledsen.gif[/img]")
strMeddelande=Replace(strMeddelande,"[:V]","[img]images/arg.gif[/img]")
strMeddelande=Replace(strMeddelande,"[]","[img]images/ironi.gif[/img]")
strMeddelande=Replace(strMeddelande,"[]","[img]images/skratt.gif[/img]")
strMeddelande=Replace(strMeddelande,"[:O]","[img]images/oops.gif[/img]")
strMeddelande=Replace(strMeddelande,"[:V:]","[img]images/sur.gif[/img]")
strMeddelande=Replace(strMeddelande,"[8D]","[img]images/cool.gif[/img]")
strMeddelande=Replace(strMeddelande,"'","''")
strMeddelande=Replace(strMeddelande,chr(10),"
")
set rsword = connect.execute("select word from word")
Do While Not rsword.EOF
strMeddelande=Censur(strmeddelande,rsword("word"))
rsword.movenext
Loop

sqlguest = "select * from users where user_id = "& session("user_id")
set rsguest = cn.execute(sqlguest)
if not rsguest.EOF then
lastname = rsguest("lastname")
end if
set rsguest = nothing

sql1guest = "select * from users where user_id = "& session("user_id")
set rs1guest = cn.execute(sql1guest)
if not rsguest.EOF then
username = rs1guest("username")
end if
set rs1guest = nothing

strRubrik=Replace(strRubrik,"'","''")
connect.execute ("insert into gastbok (namn, ip, url, email, meddelande, status) values('" & lastname & "','" & strip & "','" & strurl & "','" & username & "','" & strMeddelande & "','" & strprivate & "')")
response.redirect("default.asp")
else
response.write(postcheck)
end if
end select
%>

[Roby_72]

Al posto di questo

sqlguest = "select * from users where user_id = "& session("user_id")
set rsguest = cn.execute(sqlguest)
if not rsguest.EOF then
lastname = rsguest("lastname")
end if
set rsguest = nothing

sql1guest = "select * from users where user_id = "& session("user_id")
set rs1guest = cn.execute(sql1guest)
if not rsguest.EOF then
username = rs1guest("username")
end if
set rs1guest = nothing

metti solo:

sqlguest = "select * from users where user_id = "& session("user_id")
set rsguest = cn.execute(sqlguest)
if not rsguest.EOF then
lastname = rsguest("lastname")
username  = rsguest("username ")
end if
set rsguest = nothing

E poi:

response.write ("insert into gastbok (namn, ip, url, email, meddelande, status) values('" & lastname & "','" & strip & "','" & strurl & "','" & username & "','" & strMeddelande & "','" & strprivate & "')")
response.end 
connect.execute ("insert into gastbok (namn, ip, url, email, meddelande, status) values('" & lastname & "','" & strip & "','" & strurl & "','" & username & "','" & strMeddelande & "','" & strprivate & "')")

E vediamo cosa ti appare a video...

Roby

[RoRiccardo]

Microsoft VBScript compilation error '800a03f6'

Expected 'End'

D:\INETPUB\WEBS\miosito\CONTENT\GUESTBOOK\../../common/ado/connection_close.asp, line 6


dunque credo che il problema sia che la pagina è inserita all'interno di un CMS artigianale.
La pagina in argomento include all'inizio un header.asp e un footer.asp che chiude le connessioni