|
[blue][/blue][/red]
```
delen som inte funkar
```
[red]<%
case "re"
set con = server.createobject ( "adodb.connection" )
con.open = driver
con.execute ( " select gb_id, gb_usr from gb where gb_id = "&[blue]request ( "msgid" )[/blue]&" " )
con.execute ( " select gb_time, format$ ( [gb_time], 'dddd dd mmm yyyy' ) as itemdate, format$ ( [gb_time], 'HH:mm' ) as itemtime from gb where gb_id = "&gbre_id&" " )
con.close
set con = nothing
goOn = true
errMess = " |
" & vbcrlf
errMess = errMess & "" & vbcrlf
errMess = errMess & "" & vbcrlf
errMess = errMess & "
folowing errors need to be corrected before posting your message:
" & vbcrlf
errMess = errMess & "" & vbcrlf
if len ( request ( "usr" ) ) = 0 then
errMess = errMess & "- you need to apply usr-name
"
goOn = false
end if
%>[/red]
```
Permalänk: https://www.webforum.nu/p/672096
## #7 — LR^evil.sid, 2002-05-12T13:55Z
har markerat form-taggen & request:en som inte fungerar, det är de här case-satserna som är relevanta.
ursäkta tabbarna men det är så jag kodar..
Permalänk: https://www.webforum.nu/p/672108
## #8 — LR^evil.sid, 2002-05-12T20:30Z
ingen som ser nått fel?
Permalänk: https://www.webforum.nu/p/672272
## #9 — @nders, 2002-05-12T20:35Z
Har du on error resume next i koden?
Du borde nämligen få ett felmeddelande.
För det första skall det inte vara likhetstecken efter con.open. Du skapar dessutom inget recordset när du exekverar dina select-satser.
```
set con = server.createobject ( "adodb.connection" )
con.open driver
[b]set objRS = [/b]con.execute ("select gb_id, gb_usr from gb where gb_id = " & request ("msgid"))
```
Mvh,
Permalänk: https://www.webforum.nu/p/672273
## #10 — LR^evil.sid, 2002-05-12T20:45Z
tänkte inte använda recordset. tänkte få ut värdet genom
```
[red]con.execute ( " select gb_id as variabel from gb where gb_id = " & "&request ( "msgid" )&" " )[/red]
```
men det är inte det som är problemet. problemet är att request ( "msgid" ) inte innehåller något värde
Permalänk: https://www.webforum.nu/p/672280
## #11 — Jesper T, 2002-05-12T20:47Z
Skulle det vara en idé att lägga in request ( "msgid" ) i en variabel innan "caset" så att värdet lägger sig där oavsätt "case"?
MVH Jesper
Har du skrivit ut det med Response.write?
Permalänk: https://www.webforum.nu/p/672284
## #12 — LR^evil.sid, 2002-05-12T20:53Z
hur skulle det gå till? den här koden sitter på samma sida alltihop. har provat att innan exekvera databaskopplingen skriva ut request:en med response.write och den innehöll inte något värde.
har inget on error resume next i koden
Permalänk: https://www.webforum.nu/p/672286
## #13 — emission, 2002-05-12T21:54Z
Börja med att rensa koden från onödiga mellanslag (bara för att undanröja potentiella felkällor). Kör även den resulterande HTML:en genom en HTML-validator (det finns massor på nätet).
Du måste använda recordset för att få ut något från databasen.
Permalänk: https://www.webforum.nu/p/672329
## #14 — LR^evil.sid, 2002-05-12T22:02Z
hela koden som den ser ut nu
```
[red]
<%
dim driver, con, rs, rd, sql, itemdate, itemtime
dim goOn, errMess, errEml, gb_eml
dim i, trcolor
dim gb_post, gb_usr, gb_home
driver =("driver={microsoft access driver (*.mdb)}; dbq=" & server.mappath("\project\db\db.mdb"))
select case request("action")
case ""
set con=server.createobject("adodb.connection")
con.open=driver
set rs=con.execute(" select gb_id, gb_usr, gb_eml, gb_home, gb_post, gb_time from gb order by gb_time desc")
i=0
response.write " " & vbcrlf
rs.close
con.close
set rs=nothing
set con=nothing
i=""
trcolor=""
%>
|
"
response.write " 
"
response.write " 