Der må mangle noget i det script, da du ikke kan starte med en afslutning på en ifsætning..
<%
end if
elseif strMode = "member" then
** Dette der mangler en start på din if-sætning..
if Session("Brugeradgang") = True then
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("database.mdb")
Conn.Open DSN
strSQL = "Insert into news (member, mus, gfx, ram, cpu, alder, comment) values ('" & Session("member") & "','" & Request.Form("mus") & "','" & Session("gfx") & "','" & Request.Form("ram") & "','" & Request.Form("cpu") & "','" & Request.Form("alder") & "','" & Request.Form("comment") & "','" & Request.Form("mail") & "')"
Conn.Execute(strSQL)
Conn.Close
Set Conn = Nothing
Response.Redirect "opret.asp"
end if
** Kode OK
elseif strMode = "member" then
if Session("Brugeradgang") = True then
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("database.mdb")
Conn.Open DSN
strQuery = "SELECT * FROM news WHERE id = " & Request.Querystring("member_id") & ""
Set rs = Conn.Execute(strQuery)
** Så er den gal igen, en elseif bliver startet med ikke afsluttet, samt endnu en if-sætning som mangler en afslutning..
%>
--
Med Venlig Hilsen
Kenneth Auchenberg AKA TheFatMan
- http://www.thefatman.dk[...]
Boycotter Hyggekrogen, HOL's børnehave