Udtræk fra db

hm..vis kilde på asp?

Jeps!

Response.write re(\"a\") & \"<br>\" <--skal der ik stå RS(\"a\") ?

Stien er forkert:
log/rfk.mdb

prøv det.

OG RE SKAL VÆRE RS

DSN skal være sådan her, udne rfk i driver navnet:

Du behøver ikke skriv www.xxxxx. i server.mappath. Enten skriver du hele stien som opgivet ved din udbyder (d:\\homes\\wwwbruger\\log\\) uden server.mappath eller skriver du server.mappath(\"/log/db.md\")

DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; \"
DSN = DSN & \"DBQ=\" & Server.MapPath (\"/log/rfk.mdb\")

:)

Og Du skal ikke movenext efter hver felt kun efter hver record/post.

  Response.Write rs(\"spg\") & \"<br>\"
  Response.write rs(\"a\") & \"<br>\"
  Response.write rs(\"b\") & \"<br>\"
  Response.write rs(\"c\") & \"<br>\"
  Response.write rs(\"d\") & \"<br>\"

  rs.MoveNext

Jeg har ændret alt...! Og der kommer stadig intet frem..! Databasen ligger her: http://www.2mwebdesign.dk/log/rfk.mdb

Hvad er nu gjort forkert`?

For en god ordens skyld så lave den do..loop while om til do while...loop

do while not rs.EOF
  response.write ....
loop

du har ikke rettet det med movenext..

du skal kalde din fil for test.asp før den bliver tolket som ASP kode på serveren. .html filer bliver ikke bare sendt direkte til browseren.

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

<body bgcolor=\"#FFFFFF\" text=\"#000000\">

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

strSQL = \"Select * from myb\"
Set rs = Conn.Execute(strSQL)

Do
  Response.Write rs(\"spg\") & \"<br>\"
  Response.write rs(\"a\") & \"<br>\"
  Response.write rs(\"b\") & \"<br>\"
  Response.write rs(\"c\") & \"<br>\"
  Response.write rs(\"d\") & \"<br>\"

  rs.MoveNext

Loop While Not rs.EOF

Conn.Close
Set Conn = Nothing
%>
</body>
</html>




Kopirer denne texst og gem den som filnavn.asp

Nå...ja..! Jeg havde glemt at save det som asp..! Okay..nu kører det..! HVordan får man den så til KUN at tage Et spørgsmål og et abcd?

Forstår i hvad jeg mener ?

Alstå den skal tage et ligegyldigt id i dbén ...derefter skal den kun vise SPG (spørgsmålet) samt de fire svar muligheder...!

Du kan sætte WHERE på din SQL:

strSQL = \"Select * from myb WHERE ID=5\"

5 er så fast men skal det være tilfældigt nummer?

Kan man ikke bruge dette stykke kode hvis den skal tage et random id fra dbén ?

http://www.4guysfromrolla.com/webtech/072799-1.shtml

Sletter rs.Movenext eller
Oppe i toppen:
i = \"0\"

Også efter do:
If = \"1\" Then
Else

Også alt det der kode også sletter rs.movenext og indsætter dette istedet:
i = 1

husk end if

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

strSQL = \"Select * from myb\"
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 rs(\"spg\") & \"<br>\"
  Response.write rs(\"a\") & \"<br>\"
  Response.write rs(\"b\") & \"<br>\"
  Response.write rs(\"c\") & \"<br>\"
  Response.write rs(\"d\") & \"<br>\"

end if
rs.Close
Set rs = Nothing
Conn.Close
Set Conn = Nothing
%>

hvad betyder:
rs.Open strSQL, Conn, 3, 1

har aldrig forstået det??

Jojo..! Den skal jo lige kunne vise et spørgsmål og fire svar før den skal kunne tage et random..!

Hvordan gør jeg så den tager et id i db. Her skal den kun vise et spørgsmål samt alle svarmuligehederne ABCD ??

Det åber et recordset til databasen.

rs.Open  skal havde en SQL-sætning, en Connection, og tallene er paramtre som cursortype,lockprimision,readonly og den slaks.

ikke med?

den skal vise et spørsgmål og svar og så vælge et random nummer ????

Nej...den skal væge et random id nummer i dbén...! Derefter skal den vise det spgm og de tilhørende svar

det er også det den gør:

du skal udskift det der er mellem <% og %> med det jeg har svare.

prøv at se dbén så forstår du nok hvad jeg mener..!

ok kikker lige

Prøv at gemme documentet som .ASP fil istedet for .htm ;-)

Eagleeye -->

Dette styke kode skulle virke?

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

strSQL = \"Select * from myb\"
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 rs(\"spg\") & \"<br>\"
  Response.write rs(\"a\") & \"<br>\"
  Response.write rs(\"b\") & \"<br>\"
  Response.write rs(\"c\") & \"<br>\"
  Response.write rs(\"d\") & \"<br>\"

end if
rs.Close
Set rs = Nothing
Conn.Close
Set Conn = Nothing
%>

Jeg kan lige prøve at ligge det op..!

Virker dette stykke kode 100%?

ja det virker næsten:

det skal lige en:
Set rs = Server.CreateObject(\"ADODB.RecordSet\")
ind:

Sæt den efter:
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Set rs = Server.CreateObject(\"ADODB.RecordSet\")

Der er da fejl i koden..!

http://www.2mwebdesign.dk/log/eagle.asp

jeg nåede det ikke, se sidste svar.

hey..det kører..! Hvordan få man det så udskrvet med en verdanna som font? Har du et link? Så jeg selv kan prøve..!

UDOVER dette: HVordan får man så random recordet til kun at blive vist en GANG ??

Der er 15...

Og den man kun vise hvert spgm EN GANG!

Fonten:

du kan i body skriver:
<body style=\"font-family: Verdana; font-size: 8pt\">

eller du kan lave font tags.
<font style=\"font-family: Verdana; font-size: 8pt\">

Eller du kan lave et style sheet CSS som indeholder styles som din HTML side peger på.

Hvis den kun må vises en GANG så skal man gemme dem som er vist i eksvis  session.
Jeg skal lige spise men så vil jeg godt lige give et eks.

Nå maden var ikke hel klar, her er et eks.
Det benytter session til at gemme hvilke som er vist:


<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 rs(\"spg\") & \"<br>\"
  Response.write rs(\"a\") & \"<br>\"
  Response.write rs(\"b\") & \"<br>\"
  Response.write rs(\"c\") & \"<br>\"
  Response.write rs(\"d\") & \"<br>\"
  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>

Eagleeye --> har du en homepage?

ja det har jeg

okay... adresse?

Hvordan sætter man font tag ind?

??

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

Sådan ?

www.eagleeye.dk

du kan gøre sådan her:
Response.Write \"<font style=\"\"font-family: Verdana; font-size: 8pt\"\">\" & rs(\"spg\") & \"<br></font>

Eller hvis det gælder for det hele så kan du skrive det i body tagen:
<body style=\"font-family: Verdana; font-size: 8pt\" >

Den kode jeg har vist skal du indsætte /log i DSN=DSN linien:
DSN = DSN & \"DBQ=\" & Server.MapPath (\"/log/rfk.mdb\")

skal jeg prøve at ligge den på min HP?

Hvorfor kan jeg ikke skrive

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

der mangler \" til sidst i linien:

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

Jep...i know! Eagleeye --> kan du ikke hjælpe mig med dette? http://www.eksperten.dk/spm/123827

Eagleeye --> har du icq?