Avatar billede martin100 Nybegynder
21. oktober 2001 - 21:03 Der er 12 kommentarer og
1 løsning

response.write

Hvorfor kan jeg ikke skrive

Response.Write \"<font style=\"\"font-family: Verdana; font-size: 8pt; font-weight: bold\"\">\" & rs(\"spg\") & \"<br></font>


Jeg vil gerne have teksten BOLD men det virker sgu ikke...

Hjælp
Avatar billede egede Nybegynder
21. oktober 2001 - 21:04 #1
Du skal slutte med \"
Avatar billede egede Nybegynder
21. oktober 2001 - 21:04 #2
Response.Write \"<font style=\"\"font-family: Verdana; font-size: 8pt; font-weight: bold\"\">\" & rs(\"spg\") & \"<br></font>\"
Avatar billede martin100 Nybegynder
21. oktober 2001 - 21:11 #3
Avatar billede egede Nybegynder
21. oktober 2001 - 21:13 #4
du har ikke opdateret, linien skal se sådan ud:
Response.Write \"<font style=\"\"font-family: Verdana; font-size: 8pt; font-weight: bold\"\">\" & rs(\"spg\") & \"<br></font>\"
Avatar billede martin100 Nybegynder
21. oktober 2001 - 21:17 #5
Avatar billede egede Nybegynder
21. oktober 2001 - 21:19 #6
det ser stadig ikke ud som om at du har sat \" til sidst...
Avatar billede egede Nybegynder
21. oktober 2001 - 21:20 #7
testede den lige selv, det virker fint når du har sat \" ind ;)
Avatar billede martin100 Nybegynder
21. oktober 2001 - 21:22 #8
Koden ser sådan ud:

<html>
<head>
<title>Untitled Document</title>
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=iso-8859-1\">
</head>

<body style=\"font-family: Verdana; font-size: 8pt\" bgcolor=\"#FFFFFF\" text=\"#000000\">

<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Set rs = Server.CreateObject(\"ADODB.RecordSet\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; \"
DSN = DSN & \"DBQ=\" & Server.MapPath (\"rfk.mdb\")
Conn.Open DSN

strSQL = \"Select * from myb\"
if Session(\"visID\") <> \"\" then
  strSQL = strSQL & \" WHERE ID NOT IN (\"&Session(\"visID\")&\")\"
end if
rs.Open strSQL, Conn, 3, 1
rndMax = CInt(rs.RecordCount)
if rndMax > 0 then
  Randomize
  rndNumber = Int((RND * rndMax)) \'Find et random nummer
  rs.Move rndNumber \'Flyt til den valgte record

  Response.Write \"<font style=\"\"font-family: Verdana; font-size: 8pt; font-weight: bold\"\">\" & rs(\"spg\") & \"<br></font>\"     
  Response.Write \"<font style=\"\"font-family: Verdana; font-size: 8pt\"\">\" & rs(\"a\") & \"<br></font>
  Response.Write \"<font style=\"\"font-family: Verdana; font-size: 8pt\"\">\" & rs(\"b\") & \"<br></font>
  Response.Write \"<font style=\"\"font-family: Verdana; font-size: 8pt\"\">\" & rs(\"c\") & \"<br></font>
  Response.Write \"<font style=\"\"font-family: Verdana; font-size: 8pt\"\">\" & rs(\"d\") & \"<br></font>

  if Session(\"visID\") = \"\" then
    Session(\"visID\") = rs(\"ID\")
  else
    Session(\"visID\") = Session(\"visID\") & \",\" & rs(\"ID\")
  end if
else
  Response.Write \"Ikke flere record at vise, reload og begynd forfra\" 
  Session(\"visID\") = \"\"
end if
rs.Close
Set rs = Nothing
Conn.Close
Set Conn = Nothing
%>

</body>
</html>
Avatar billede martin100 Nybegynder
21. oktober 2001 - 21:28 #9
Prøv at lave hele koden hvor du har skrevet\" ind...så ligger jeg den op så kan vi teste det!
Avatar billede egede Nybegynder
21. oktober 2001 - 21:32 #10
html>
<head>
<title>Untitled Document</title>
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=iso-8859-1\">
</head>

<body style=\"font-family: Verdana; font-size: 8pt\" bgcolor=\"#FFFFFF\" text=\"#000000\">

<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Set rs = Server.CreateObject(\"ADODB.RecordSet\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; \"
DSN = DSN & \"DBQ=\" & Server.MapPath (\"rfk.mdb\")
Conn.Open DSN

strSQL = \"Select * from myb\"
if Session(\"visID\") <> \"\" then
  strSQL = strSQL & \" WHERE ID NOT IN (\"&Session(\"visID\")&\")\"
end if
rs.Open strSQL, Conn, 3, 1
rndMax = CInt(rs.RecordCount)
if rndMax > 0 then
  Randomize
  rndNumber = Int((RND * rndMax)) \'Find et random nummer
  rs.Move rndNumber \'Flyt til den valgte record

  Response.Write \"<font style=\"\"font-family: Verdana; font-size: 8pt; font-weight: bold\"\">\" & rs(\"spg\") & \"<br></font>\"     
  Response.Write \"<font style=\"\"font-family: Verdana; font-size: 8pt\"\">\" & rs(\"a\") & \"<br></font>\"
  Response.Write \"<font style=\"\"font-family: Verdana; font-size: 8pt\"\">\" & rs(\"b\") & \"<br></font>\"
  Response.Write \"<font style=\"\"font-family: Verdana; font-size: 8pt\"\">\" & rs(\"c\") & \"<br></font>\"
  Response.Write \"<font style=\"\"font-family: Verdana; font-size: 8pt\"\">\" & rs(\"d\") & \"<br></font>\"

  if Session(\"visID\") = \"\" then
    Session(\"visID\") = rs(\"ID\")
  else
    Session(\"visID\") = Session(\"visID\") & \",\" & rs(\"ID\")
  end if
else
  Response.Write \"Ikke flere record at vise, reload og begynd forfra\" 
  Session(\"visID\") = \"\"
end if
rs.Close
Set rs = Nothing
Conn.Close
Set Conn = Nothing
%>

</body>
</html>

Der var flere steder med den samme fejl... nu er det vist i orden...
Avatar billede egede Nybegynder
21. oktober 2001 - 21:33 #11
der mangler dog et < allerførst :)
Avatar billede martin100 Nybegynder
21. oktober 2001 - 21:36 #12
Okay...så var det derfor..!

mange tusinde tak..!

Avatar billede egede Nybegynder
21. oktober 2001 - 21:37 #13
så lidt, mange tak for point ;)
Avatar billede Ny bruger Nybegynder

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.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester