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>