fejl i forspørgsel ( if's)
Hvad er fejlen ?<%
if request.form("B1") <> "" then
Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("db/db.mdb")
if request.form("til") = "Alle" then
Sql = "select * from brugere"
Set rs = Conn.Execute(sql)
do while not rs.EOF
sql1 = "Insert into post (til, fra, emne, tekst, dato) values(" & rs("id") &", " & session("login") &", '" & request.form("emne") &"', '" & request.form("tekst") &"', date())"
Conn.Execute(sql1)
rs.movenext
loop
response.redirect "redirect.asp?valg=PostIndbakke"
end if
If isNumeric(" & request.form("til") &") AND request.form("til") <> "Alle" Then
response.write "EN PERSON"
else
response.write "EN GRUPPE - IKKE ALLE"
end if
'Hvis request("til") = ER EN BRUGER then
'sql = "Insert into post (til, fra, emne, tekst, dato) values(" & request.form("til") &", " & session("login") &", '" & request.form("emne") &"', '" & request.form("tekst") &"', date())"
'Conn.Execute(sql)
'response.redirect "redirect.asp?valg=PostIndbakke"
'end if
end if
%>
