Formulering af query som altid

sitiuation har en side hvor man kan eller burde kunne :p
logge på din figur/account og redigere nogle ting.
men skidtet vil ikke rigtig give mig andet en fejl 500.

har 2 stykker kode som er blevet genbrugt nogle gange efter
hånden men nu er det gået i stå..

----------- Her henter vi data, checker brugernavn / password
som vi får in via <form> post fra forige side.
usrname = brugernavn, pwrname = password.

Arbejdsgangen skulle værer
Hente usrname+pwrname og finde account ID som hedder acct
derefter gå til tabellen characters og hente en liste med
alle de figure som are samme nr i deres acct tabel.
håber i forstår hvad jeg mener.

<% evidb = "Driver={MySQL ODBC 3.51 Driver}; Server=localhost; Database=HIDDEN; Uid=HIDDEN; Pwd=HIDDEN"

Dim Recordset, Connection, SQL, DataTO, Datablad
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Open evidb

SQL = "SELECT acct FROM Logon.accounts WHERE " & Request.form("usrname") & " = login AND " &  Request.form("pwrname") & " = password"
Set Recordset = Server.CreateObject("ADODB.Recordset")
Recordset.Open SQL, Connection, 1, 3

DataTO = "SELECT * FROM Logon.characters WHERE " & SQL & " = acct"
set Datablad = server.createobject("ADODB.recordset")
Datablad.open DataTO, connection, 1, 3

%>

-------------------- også en masse formatering hmtl osv.

længere ned skal vi vise listen og figurer som vi finder frem
på serveren, og figurens ID vises som kan bruges til at hente
en specifik figur frem.

<%
While Not Datablad.EOF
    Response.Write Datablad("guid") & " - " & Datablad("Name")& " - " & Datablad("Level") & "<br>"
    Datablad.MoveNext
Wend   
Datablad.Close
Connection.Close
Set Datablad = Nothing
Set Connection = Nothing
%>

hvor fejlen er kan jeg ikke beskrive fejl 500 intern server fejl
uden nogen form for fejl kode, og har fjernet fluebenet i
vis fejl i IE..

nogle forslag ?