22. maj 2001 - 12:15Der er
7 kommentarer og 2 løsninger
Udtræk fra access.
Jeg skal havde alt data fra den række med id: \"read\" Jeg er sikker på der kun er en række. Felterne der skal udskrives er fra, emne, dag, maaned, aar, besked
Jeg har prøvet dette, men det giver fejl i linjen rs.Open strSQL, strDSN, 1
if Request.Querystring(\"action\")=\"read\" then \'Vis brevet READ read=Request.Querystring(\"read\")
Set rs = Server.CreateObject(\"ADODB.RecordSet\") strSQL = \"SELECT * FROM posten where id=\'\"&read&\"\'\" strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"usersys.mdb\") rs.Open strSQL, strDSN, 1
If Not (rs.BOF Or rs.EOF) Then Do While Not rs.EOF Response.Write(\"Brev fra \"&rs(\"fra\")&\"<br>Dato: \"&rs(\"dag\")&\"/\"&rs(\"maaned\")&\"-\"&rs(\"aar\")&\"<br>Emne: \"&rs(\"emne\")&\"<br><hr><br>\"&rs(\"tekst\")) rs.MoveNext Loop End If
Skal virksomheder stå stærkere mod angreb og kunne udvikle sig, skal sikkerhed, drift og forretning tænkes sammen. Det er tanken bag Jysk IT’s ambition om at skabe en “sikker fremtid” for kunderne.
set strDNS = Server.CreateObject(\"ADODB.connection\") conn.strDNS \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"usersys.mdb\") strSQL = \"SELECT * FROM posten where id=\'\"&read&\"\'\" Set rs = Server.CreateObject(\"ADODB.RecordSet\") set rs = conn.execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then Do While Not rs.EOF Response.Write(\"Brev fra \"&rs(\"fra\")&\"<br>Dato: \"&rs(\"dag\")&\"/\"&rs(\"maaned\")&\"-\"&rs(\"aar\")&\"<br>Emne: \"&rs(\"emne\")&\"<br><hr><br>\"&rs(\"tekst\")) rs.MoveNext Loop End If
set strDNS = Server.CreateObject(\"ADODB.connection\") strDNS.open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"usersys.mdb\") strSQL = \"SELECT * FROM posten where id=\'\"&read&\"\'\" Set rs = Server.CreateObject(\"ADODB.RecordSet\") set rs = conn.execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then Do While Not rs.EOF Response.Write(\"Brev fra \"&rs(\"fra\")&\"<br>Dato: \"&rs(\"dag\")&\"/\"&rs(\"maaned\")&\"-\"&rs(\"aar\")&\"<br>Emne: \"&rs(\"emne\")&\"<br><hr><br>\"&rs(\"tekst\")) rs.MoveNext Loop End If
Nogle af jeres rettelser, ny fejl: Object required: \'conn\' i linjen set rs = conn.execute(strSQL)
if Request.Querystring(\"action\")=\"read\" then \'Vis brevet READ read=Request.Querystring(\"read\")
set strDNS = Server.CreateObject(\"ADODB.connection\") strDNS.open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"usersys.mdb\") strSQL = \"SELECT * FROM posten where id=\"&read&\";\" Set rs = Server.CreateObject(\"ADODB.RecordSet\") set rs = conn.execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then Do While Not rs.EOF Response.Write(\"Brev fra \"&rs(\"fra\")&\"<br>Dato: \"&rs(\"dag\")&\"/\"&rs(\"maaned\")&\"-\"&rs(\"aar\")&\"<br>Emne: \"&rs(\"emne\")&\"<br><hr><br>\"&rs(\"tekst\")) rs.MoveNext Loop End If
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.
