hjælp til asp rettelse.
Hejsa jeg har et citat script kørende her:http://www.basket-kort.dk/default.asp
Men jeg vil gerne have slettet " som kommer bagefter den øverste tekst hele tiden....
citat scriptet ser sådan her ud:
<%
'Databaseforbindelse
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../db/citat.mdb")
'Vælg en tilfældig post fra tabellen "Citater"
Randomize Timer
Set citatRS = objConn.Execute("SELECT * FROM Citater WHERE ID = ("&_
"SELECT Min(ID) FROM Citater WHERE ID >= (" &_
"SELECT Round(CDbl(" & Replace(Rnd(),",",".") &_
"*Max(ID))) FROM Citater))")
'Replacefunktion af " til Chr(34) i citattabellen
'Dette gøres fordi JavaSciptet vil stoppe med at parse koden ved dette tegn
Citat = citatRS("Citat")
Citat = Replace(Citat,Chr(34),""")
'Udskrivning af selve JavaScriptet
'------------------------------------------------------------------------------
'Deklerering af JavaScriptet til browseren. Denne linie skal ikke med, nås siden syndikeres, men til lokal test har jeg ladet den blive
'Response.Write ("<script language=""JavaScript1.2"" type=""text/javascript"">")& vbCrlf
'Udskrivning af paragrafen og selve citatet
Response.Write ("" & citat & "") & vbCrlf
'Udskrivning af parafrafen og forfatter
Response.Write ("""<p style=>" & citatRS("Forfatter") & "</p>") & vbCrlf
'JavaScriptet slutter her. Denne linie skal ikke med, men jeg har ladet den blive til lokal test.
'Response.Write ("</script>")& vbCrlf
'Luk Databaseforbindelse
Set citatRS = Nothing
objConn.Close
Set objConn = Nothing
%>
