webForumDet fria alternativet

Enkla (??) Databasfrågor

29 svar · 610 visningar · startad av Coccozz · sida 2 av 2

CoccozzMedlem sedan apr. 20032 072 inlägg
#21

Men eftersom den skall skriva ut tabeller och aspkod så fungera det inte :(
Här får du vad det är den skall skriva ut också ;)

<tr><td width="20%"><center><font face="Verdana" size="1" color="#000000"><%=rs("date")%></font></center></td>
    <td width="40%"><center><font face="Verdana" size="1" color="#000000"><a href="news.asp?ID=<%=rs("id")%>">
	<u><%=rs("title")%></u></a></font></center></td><td width="20%"><center><font face="Verdana" size="1" color="#000000"><%=rs("kalla")%></font></center></td>
    <td width="20%"><center><font face="Verdana" size="1" color="#000000"><%=rs("misc")%></font></center></td>"
CoccozzMedlem sedan apr. 20032 072 inlägg
#22

Men det verkar som om det går att lösa genom att byta ut dubbelfnuttarna mot enkefnuttar
/red.
Nope. På allt utom när själva aspsnuttarna kommer...
Då får man felmeddelandet

Unterminated string constant

Efter koden ex.

response.write "<tr><td width='20%'><center><font face='Verdana' size='1' color='#000000'><%=rs('date')
-------------------------------------------------------------------------------------------------------^
GimboMedlem sedan dec. 20001 626 inlägg
#23
response.write "<tr><td width=""20%""><center><font face=""Verdana"" size=""1"" color=""#000000"">'" & rs("date")& "' </font></center>"
CoccozzMedlem sedan apr. 20032 072 inlägg
#24

Får då detta felmeddelande

Microsoft VBScript runtime error '800a01a8' 
Object required: '' 

/pag/Coffaz/Default/body.asp, line 64

Line 64

set rs = connect.execute(SQL)
GimboMedlem sedan dec. 20001 626 inlägg
#25

kan man få se på mer kod? (hela din koppling till databasen samt de raderna där du försöker kalla på data från databasen)

CoccozzMedlem sedan apr. 20032 072 inlägg
#26

Givetvis ;)

 <%
Set MinCon = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
MinCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/databas/news.mdb")

SQL = "SELECT TOP 5 * From news ORDER BY ID DESC"
set rs = connect.execute(SQL)
while not rs.eof
  response.write "<tr><td width=""20%""><center><font face=""Verdana"" size=""1"" color=""#000000"">'" & rs("date") & "'</font></center></td><td width=""40%""><center><font face=""Verdana"" size=""1"" color=""#000000""><a href=""news.asp?ID='" & rs("id") & "'""><u>'" & rs("title") & "'></u></a></font></center></td><td width=""20%""><center><font face=""Verdana"" size=""1"" color=""#000000"">'" & rs("kalla") & "'</font></center></td><td width=""20%""><center><font face=""Verdana"" size=""1"" color=""#000000"">'" & rs("misc") & "'</font></center></td>"
  rs.movenext
  Wend
%>
LarsGMedlem sedan dec. 200012 464 inlägg
#27
response.write "<tr><td width='20%'><center><font face='Verdana' size='1' color='#000000'> " & rs("date") &_
"</td></tr>"
CoccozzMedlem sedan apr. 20032 072 inlägg
#28

Så ändrade jag till innan, men då sa Gimbo att dubbla dubbelfnuttar och ' " & rs=("ddd") & " ' funkade
Men det hjälper väl inte mot det här felmeddelandet elr? Orkar inte ändra allt för att sedan ändra tebax igen :( :)

GimboMedlem sedan dec. 20001 626 inlägg
#29

det fungerar lika bra med dubbla fnuttar

 <%
Set MinCon = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
MinCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/databas/news.mdb")

SQL = "SELECT TOP 5 * From news ORDER BY ID DESC"
'set rs = connect.execute(SQL)
rs.OPEN SQL, minCon
while not rs.eof
  response.write "<tr><td width=""20%"">......"

ditt problem ligger i din recordset, jag har kommenterat bort set rs = minCon...

och lagt till

rs.open sql, mincon

testa det

CoccozzMedlem sedan apr. 20032 072 inlägg
#30

Nu fungerar det klockrent...Tackar så mycket :)
//Coccozz

138 ms totalt · 3 externa anrop · v20260731065814-full.30151723
0 ms — hämta forumlista (cache)
0 ms — hämta statistik (cache)
135 ms — hämta tråd, inlägg och bilagor (db)