17 svar · 307 visningar · startad av Pace
Varför kan man inte öppna en db koppling och skapa ett recordset för att sedan använda dem i en sub?
Exempel:
set hej = Server.CreateObject("ADODB.Connection")... och allt det där
Set rs = hej.execute("Öppna för guds skull!")
och sedan
Sub hejIgen
a = rs("ytterligare_ett_hej")
End Sub
Har testat att dimma rs globalt men det verkar ju inte heller funktionera. 
Nej, a är bara ett exempel...
Jag använder response.write rs("rs") inne i subben
originalkoden innehåller en massa grötig html emellan.
ligger subben på samma sida som rs connection?
Samma asp sida menar du? Japp.
Glömde tillägga att jag får detta felmed:
Item cannot be found in the collection corresponding to the requested name or ordinal.
du har inte stänkgt rs eller hej innan du kör subben?
Nej, inget sånt.
Hur ser den riktiga koden ut?
Okej, hold on, så ska jag slänga in den... (utan den grötiga html:n)
strSql = "SELECT Members.M_Name,Members.M_ICQ, Members.Member_id, Topics.T_date, Topics.T_subject, Topics.T_Message, Topics.T_Originator, Topics.Topic_ID "
strSql = strSql & "FROM Members INNER JOIN Topics ON Members.Member_id = Topics.T_Originator "
strSql = strSql & "where topics.topic_id = " & Request.QueryString("topic_id")
set rs = my_conn.Execute (strSql)
If rs.Eof or rs.Bof then
Response.Write "<TR><TD COLSPAN=5>Inga inlägg funna</TD></TR>" & vbCrLF
Else
Call displayTopic()
Så här ser displayTopic ut:
Sub displayTopic()
Response.Write "<TR>" & vbCrLf
Response.Write "<TD BGCOLOR='" & CColor & "' VALIGN=""top"">" & _
"<FONT COLOR='" & FormFontColor & "' FACE='" & DefaultFontFace & "' SIZE=2>" & _
rs("M_name") & userTitle & "</FONT></TD>" & vbCrLf
Response.Write "<TD BGCOLOR='" & CColor & "' VALIGN='top' ><FONT COLOR=gray FACE='" & DefaultFontFace & "' SIZE=1 COLOR=gray>Postat " & day(rs("R_Posted")) & " " & monthname(month(rs("R_Posted"))) & " " & year(rs("R_Posted")) & " " & hour(rs("R_Posted")) & ":" & Minute(rs("R_Posted")) & "</FONT>" & vbCrLf
Response.Write " <A HREF=""Javascript:openWindow('profile.asp?action=display&username=" & server.URLEncode(rs("M_name")) & "')""><IMG SRC='profile.gif' ALT='Visa profil' BORDER=0 ALIGN='absmiddle' HSPACE=6></A>" & vbCrLf
Response.Write " <A HREF='mail.asp?id=" & rs("R_posted_by") & "'><IMG SRC='email.gif' ALT='Skicka e-mail till användaren' BORDER=0 ALIGN='absmiddle' HSPACE=6></A>" & vbCrLf
Response.Write " <A HREF='post.asp?method=edit&reply_id=" & Rs("Reply_ID") & "&auth=" & server.URLEncode(rs("R_posted_by")) & "&forum_title=" & server.URLEncode(Request.QueryString("forum_title")) & "&topic_title=" & server.Urlencode(Request.QueryString("topic_title")) & "&forum_id=" & Request.QueryString("forum_id") & "&topic_id=" & Request.QueryString("topic_id") &"'><IMG SRC='edit.gif' ALT='Redigera inlägg' BORDER=0 ALIGN='absmiddle' HSPACE=6></A>" & vbCrLf
Response.Write "<HR NOSHADE SIZE=1><FONT COLOR='" & ForumFontColor & "' FACE='" & DefaultFontFace & "' SIZE=2>" & formatStr(rs("R_Message")) & "</FONT><P> </TD>" & vbCrLf
Response.Write "</TR>" & vbCrLf
End Sub
[r] Öhh... fan vad grötigt det blev här... det är i alla fall bara Response.Write som skriver ut Recordseten, så ni behöver inte stirra er blinda!
Japp, inga som helst fel där. Felet uppstod enbart när jag flyttade skiten från modulnivå in i en sub.
dimma rs utanför subbarna
Ja, det har jag ju gjort.
Jag har ingen aning om vad som kan vara fel, men jag tror jag överger detta och försöker gå en omväg runt detta problem. 
Tack för hjälpen i alla fall. 
Du kan ju inte använda rs("R_posted_by") m.fl eftersom du inte plockar ut dem i SELECT-satsen.
Ah! emission! Fattar inte hur du orkade kolla igenom allt! 
Tackar tackar!
Hur som helst, hur gör jag nu för att få in detta i SQL satsen...
[r] Det är alltså i en tabell som heter "Reply"