simpel sql virker ikke

<%
Dim sConnection, objConn , objRS

sConnection = "DRIVER={MySQL ODBC 3.51 Driver}; SERVER=xxx; DATABASE=xx; UID=xx; PASSWORD=xx; OPTION=3"

Set objConn = Server.CreateObject("ADODB.Connection")

objConn.Open(sConnection)

Set objRS = objConn.Execute("SELECT first_name FROM swans_user WHERE id = 4")


While Not objRS.EOF
ForNavn= objRS("first_name")

objRS.MoveNext
Wend

objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing
%>
<font color="#FFFFFF">
<input type="text" name="ForNavn" value="WW">
</font>


hvorfor virker denne her ikke får bare en fejl 500 intern server bla bla