Hjælp til noget kode med vbscript og sql.
Hejsa.Jeg har problemer med følgende kode:
<!-- #INCLUDE FILE="top.asp" -->
<!-- TagwallSlet.asp -->
<%
'VISER EN LISTE OVER ALLE TAGS
Set Conn = server.createobject("ADODB.Connection")
Conn.Open "DRIVER=SQL Server;SERVER=localhost;DATABASE=data;UID=user;PWD=pass;"
Set RS = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM Tagwall ORDER BY ID DESC"
RS.Open SQL, Conn
%>
<H1>Slet Tag</H1><P>
<script language="vbscript">
Sub VisMsgBox()
MyBox = MsgBox("Vil du virkelig slette opgaven: <%=rs("emne")%>?", 4,"Bekræft sletning")
IF MyBox = vbYes THEN
location.href = "script/ToDoUdfoertScript.asp?mode=slet&opgave=<%=rs("ID")%>"
ELSE
END IF
End Sub
</script>
<%
Do Until RS.EOF
response.write(""&rs("Dato")&" ")
response.write(""&rs("IP")&" ")
response.write("<A HREF=""TagwallRediger.asp?ArtikelID="&rs("ID")&""" onclick=""VisMsgBox()"">Nick: "&rs("nick")&" Tag: "&rs("tag")&"</A><P>")
rs.movenext
LOOP
RS.close
Set RS = Nothing
Conn.close
Set Conn = Nothing
%>
<!-- #INCLUDE FILE="bund.asp" -->
Problemet er at siden ikke bliver vist korrekt når vb scriptet er med, så tror det er det der er galt. Men hvad skal jeg gøre?
HELP!
