Hola,
Como supuse, era un problema menor.
micuenta.asp
Código:
<%
autorizado = Session("sessionid")
If autorizado= "" then
response.write "<center>No se ha logueado"
response.write "<form>"
response.write "<input type='button' value='Return to Form' onclick=history.go(-1)>"
response.write "</form></center>"
Else
dim conn
dim conn_string
conn_string = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=localhost;"_
& " DATABASE=forum;UID=user;PWD=pass; OPTION=16387"
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open(conn_string)
strQuery = "SELECT phpbb_users.username FROM phpbb_users, phpbb_sessions WHERE phpbb_users.user_id=phpbb_sessions.session_user_id AND phpbb_sessions.session_id= '" & autorizado & "'"
Set RS = conn.Execute(strQuery)
%><html>
<head>
<title>New Page 2</title>
</head>
<body>
<%
Response.Write "Bienvenido " & RS("username") & " estas logueado en sitio y foro. "
%><br>
</body>
</html>
<%
RS.Close
Set RS = Nothing
End If
%>
Así es com debe quedar
Sigamos mejórándolo.
