DB connection!
Jeg har følgende script som bruges til at godkende profiler:<%
If Session("adminlevel") <> "1" Then
Response.Write "<b>Du har ikke adgang til denne funktion!</b>"
Else
Select Case Request.Querystring("action")
Case ""
Response.Write "<h3 align='center'>..:: Godkend profiler ::..</h3>" _
& "<table width='450' align='center'><tr><th width='150' valign='top' align='left'>Brugernavn:</th><th width='150' valign='top' align='left'>Navn: </th><th width='150' valign='top' align='left'>Område: </th></tr>"
dbcon
Set RS = Conn.Execute("SELECT * FROM brugere WHERE godkendt = not True ORDER BY brugernavn")
If not rs.EOF or rs.BOF Then
Do While not (rs.EOF or rs.BOF)
Response.Write "<tr><td width='150' valign='top'><a href='../include/admingodkendprofiler.asp?action=godkend&brugernavn="&RS("brugernavn")&"'>"&RS("brugernavn")&"</a></td><td width='150' valign='top'><p>"&RS("navn")&"</p></td><td width='150' valign='top'><p>"&RS("omraade")&"</p></td></tr>"
RS.movenext
Loop
Else
Response.Write "<br><b>Der er ikke nogen profiler det venter på at blive godkendt!</b>"
End If
closedb
Response.Write "</table>"
'If Request.Querystring("action") = "godkend" Then
Case "godkend"
dbcon ' linie 41
Conn.Execute("UPDATE brugere SET godkendt = True WHERE brugernavn = "&Request.Querystring("brugernavn")&" ")
Conn.Close
set Conn = Nothing
Response.Redirect("../include/admingodkendprofiler.asp")
End Select
End If
%>
Men når jeg kører scriptet får jeg følgende fejl:
Typerne stemmer ikke overens: 'dbcon'
linie 41
dbcon indeholder min connectionstring til DB'en...
Hvad har jeg gjort galt ?
