21. maj 2002 - 22:34Der er
33 kommentarer og 1 løsning
Db udtræk ????????
Hej Eksperter....
Jeg er ved at lave et internt post system .....
Får hele tiden denne fejl
Microsoft VBScript compilation error '800a0409'
Unterminated string constant
/flash/login/ipo.asp, line 13
str1SQL="SELECT * FROM ipost WHERE tilbruger="& va " ----------------------------------------------------^
Det er vist den her linie den ikke vil acceptere
str1SQL="SELECT * FROM ipost WHERE tilbruger="& va "
Hvad kan der være galt ?
KODE:
<% ' Databaseforbindelse - husk at angive sti til din database Set Conn = Server.CreateObject("ADODB.Connection") DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; " DSN = DSN & "DBQ=" & Server.MapPath("hp.mdb") Conn.Open DSN strSQL="SELECT * FROM medlemmer WHERE id=" & request.cookies("forumData")("brugerID") & "" ' indsætter i db set rs = Conn.Execute(strSQL) response.write rs("brugernavn") va=rs("brugernavn") responsw.write "<br><br>" str1SQL="SELECT * FROM ipost WHERE tilbruger="& va " set rs = Conn.Execute(str1SQL) p=rs("frabruger") response.write "Fra<br><br> "& p &"<br><br><br><br>" response.write "Besked<br><br>" & rs("indhold") ' Luk databaseforbindelse Conn.Close Set Conn = Nothing %>
AI bliver først for alvor en del af arbejdet, når teknologien integreres i den måde, vi arbejder på. At have adgang til AI betyder ikke nødvendigvis, at medarbejderne er klar til at bruge den.
men på den anden side set.. så er det jo tekst.. så du skal nok gøre sådan her: <% ' Databaseforbindelse - husk at angive sti til din database Set Conn = Server.CreateObject("ADODB.Connection") DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; " DSN = DSN & "DBQ=" & Server.MapPath("hp.mdb") Conn.Open DSN strSQL="SELECT * FROM medlemmer WHERE id=" & request.cookies("forumData")("brugerID") & "" ' indsætter i db set rs = Conn.Execute(strSQL) response.write rs("brugernavn") va=rs("brugernavn") responsw.write "<br><br>" str1SQL="SELECT * FROM ipost WHERE tilbruger='" & va & "'" set rs = Conn.Execute(str1SQL) p=rs("frabruger") response.write "Fra<br><br> "& p &"<br><br><br><br>" response.write "Besked<br><br>" & rs("indhold") ' Luk databaseforbindelse Conn.Close Set Conn = Nothing %> //>Rune
<% ' Databaseforbindelse - husk at angive sti til din database Set Conn = Server.CreateObject("ADODB.Connection") DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; " DSN = DSN & "DBQ=" & Server.MapPath("hp.mdb") Conn.Open DSN strSQL="SELECT * FROM medlemmer WHERE id=" & request.cookies("forumData")("brugerID") ' indsætter i db set rs = Conn.Execute(strSQL) response.write rs("brugernavn") va=rs("brugernavn") responsw.write "<br><br>" str1SQL="SELECT * FROM ipost WHERE tilbruger='" & va & "'" set rs = Conn.Execute(str1SQL) p=rs("frabruger") response.write "Fra<br><br> "& p &"<br><br><br><br>" response.write "Besked<br><br>" & rs("indhold") ' Luk databaseforbindelse Conn.Close Set Conn = Nothing %>
<% ' Databaseforbindelse - husk at angive sti til din database Set Conn = Server.CreateObject("ADODB.Connection") DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; " DSN = DSN & "DBQ=" & Server.MapPath("hp.mdb") Conn.Open DSN strSQL="SELECT * FROM medlemmer WHERE id=" & request.cookies("forumData")("brugerID") ' indsætter i db set rs = Conn.Execute(strSQL) While Not rs.EOF response.write rs("brugernavn") va=rs("brugernavn") response.write "<br><br>" str1SQL="SELECT * FROM ipost WHERE tilbruger='" & va & "'" set rs = Conn.Execute(str1SQL) p=rs("frabruger") response.write "Fra<br><br> "& p &"<br><br><br><br>" response.write "Besked<br><br>" & rs("indhold") rs.MoveNext() Wend ' Luk databaseforbindelse Conn.Close Set Conn = Nothing %> //>Rune
Mon ikke det er blevet tid til at lukke spørgsmålet ?
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.