Frågan#1
Jag vill skriva ut en kod som finns i en databas men jag har kommit på att allt som finns mellan <% och %> inte skrivs ut, varför?
------------------
Ampy.cjb.net
Skriv inte ut
8 svar · 281 visningar · startad av ampy
Vfart ska jag lägga in den koden i denna kod:
<%
randomize
set connect = server.createobject("adodb.connection")
connect.Open "Driver={Microsoft Access Driver (*.mdb)}; dbq=" & Server.MapPath("db/statistik.mdb")
set rs = connect.execute("Select * From slumpa ")
if rs.eof then
'tji
else
rows = rs.getrows()
post = clng(rnd()*ubound(rows,2))
for i = 1 to ubound(rows,1)
response.write rows(i,post)
next
end if
%>
------------------
Ampy.cjb.net
Jag är inte säker på att jag förstår problemet. Lagrar du <% och %> i databasen?
- - -
För att kombinera icaaqs kod med din:
<%
randomize
set connect = server.createobject("adodb.connection")
connect.Open "Driver={Microsoft Access Driver (*.mdb)}; dbq=" & Server.MapPath("db/statistik.mdb")
set rs = connect.execute("Select * From slumpa ")
if rs.eof then
'tji
else
rows = rs.getrows()
post = clng(rnd()*ubound(rows,2))
for i = 1 to ubound(rows,1)
response.write Server.HTMLEncode(rows(i,post))
next
end if
%>
Mvh,
Nu skriv allt mellan <% och %> ut direkt.
Så här ser koden ut som jag har i databasen:
<%
Resonse.Write "<b>Senaste registreringen i <a href=""icq-lista/icq.asp"">ICQ-listan</a>:</b><br><br>"
Set Conn = Server.CreateObject("ADODB.Connection")
Set DBLink = Server.CreateObject("ADODB.Recordset")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("icq.mdb") & ";pwd=;"
SQL = "SELECT TOP 1 * From icq ORDER BY datum DESC"
DBLink.Open SQL, Conn, 1, 2
Do While Not DBLink.EOF
Response.Write "<b>Namn: </b><FONT face=Verdana color=#006600 size=1><b><i> " & DBLink("namn") & "</i></b></font>"
Response.Write " <br><b>Nick-namn: </b><FONT face=Verdana color=#006600 size=1><b><i> " & DBLink("nick") & "</i></b></font>"
Response.Write " <br><b>Ålder: </b><FONT face=Verdana color=#006600 size=1><b><i> " & DBLink("alder") & "</i></b></font>"
Response.Write "<br><b>Datum: </b> <FONT face=Verdana color=#006600 size=1><i><b> " & DBLink("datum") & "</font><b></i>"
DBLink.MoveNext
Loop
DBLink.Close
Conn.Close
Set DBLink = Nothing
Set Conn = Nothing %>
Jag vill att den ska göra som det står i aspkoden, inte att den bara ska skriva ut koden.
------------------
Ampy.cjb.net
Du skrev ju att det var det du ville?
- - -
Du skall inte lagra <% och %> i databasen.
För att exekvera ett scriptblock kan du använda:
ExecuteGlobal(rows(i,post))
Men, som sagt, då måste du ta bort <% och %> ur scriptet i databasen.
Mvh,
Så här ser koden ut i databasen nu:
Response.Write "<b>Senaste registreringen i <a href=""icq-lista/icq.asp"">ICQ-listan</a>:</b><br><br>"
Set Conn = Server.CreateObject("ADODB.Connection")
Set DBLink = Server.CreateObject("ADODB.Recordset")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/icq.mdb") & ";pwd=;"
SQL = "SELECT TOP 1 * From icq ORDER BY datum DESC"
DBLink.Open SQL, Conn, 1, 2
Do While Not DBLink.EOF
Response.Write "<b>Namn: </b><FONT face=Verdana color=#006600 size=1><b><i> " & DBLink("namn") & "</i></b></font>"
Response.Write " <br><b>Nick-namn: </b><FONT face=Verdana color=#006600 size=1><b><i> " & DBLink("nick") & "</i></b></font>"
Response.Write " <br><b>Ålder: </b><FONT face=Verdana color=#006600 size=1><b><i> " & DBLink("alder") & "</i></b></font>"
Response.Write "<br><b>Datum: </b> <FONT face=Verdana color=#006600 size=1><i><b> " & DBLink("datum") & "</font><b></i>"
DBLink.MoveNext
Loop
DBLink.Close
Conn.Close
Set DBLink = Nothing
Set Conn = Nothing
Då får jag detta felmeddelande:
Feltyp:
Körningsfel i Microsoft VBScript (0x800A000D)
Inkompatibla typer: 'BLink'
/ampy/main.asp
------------------
Ampy.cjb.net
Jag kan inte se att du har BLink i denna kod. Använder du BLink någon annanstans i koden?
Nu när jag läste ditt inlägg så testade jag bara att uppdatera sidan och då funkade allt, mysko ;)
------------------
Ampy.cjb.net