connect til mysql
har store problemer med min side, men hvad er der galt?jeg får følgende fejl :
Fejltype:
Der opstod en Microsoft VBScript-kompileringsfejl (0x800A0400)
En sætning var ventet
/rollespil/noframe/211.asp, line 130
<% SQL = "SELECT bnavn FROM person WHERE bnavn = '" & Request.form("brugerNavn")& "'
kilden er her:
<% OPTION EXPLICIT%>
<HTML><HEAD>
<LINK REL="StyleSheet" HREF="style.css" TYPE="text/css">
<TITLE>Dansk Rollespils Portal</TITLE>
</HEAD>
<BODY>
<TABLE class=tabel>
<TR Height=20px>
<TD COLSPAN="2" class=TD1>
<CENTER>| <a href="http://agger/rollespil/noframe/21.asp">Ny Bruger</a> | <a href="http://agger/rollespil/noframe/22.asp"> Glemt Password</a> | <A HREF="http://agger/rollespil/noframe/23.asp">Rediger Profil</A> |</CENTER>
</TD>
</TR>
<TR class=TR1>
<TD class=TD2>
<span style="position:absolut;top:1%;width:100%; padding-top: 10px;">
<CENTER><A HREF="http://agger/rollespil/noframe/1.asp">Hovedside</A></CENTER><BR>
<CENTER><%
if (Session("loginOK") = "jada") then
Response.Write "<a href='http://agger/rollespil/noframe/logout.asp'>Log Out </a>"
else
Response.Write "<a href='http://agger/rollespil/noframe/2.asp'>Log In</a>"
End if %></CENTER><BR>
<CENTER><A HREF="http://agger/rollespil/noframe/3.asp">Spil på net</A></CENTER><BR>
<CENTER><A HREF="http://agger/rollespil/noframe/chat.asp">Chat</A></CENTER><BR>
<CENTER><A HREF="http://agger/rollespil/noframe/4.asp">Live</A></CENTER><BR>
<CENTER><A HREF="http://agger/rollespil/noframe/5.asp">Spil Kontakt</A></CENTER><BR>
<CENTER><A HREF="http://agger/rollespil/noframe/6.asp">Opslagstavlen</A></CENTER><BR>
<CENTER><A HREF="http://agger/rollespil/noframe/7.asp">Eventyr</A></CENTER><BR>
<CENTER><A HREF="http://agger/rollespil/noframe/8.asp">Galleri</A></CENTER><BR>
<CENTER><A HREF="http://agger/rollespil/noframe/9.asp">Køb/Salg</A></CENTER><BR>
<CENTER><A HREF="http://agger/rollespil/noframe/begivenheder.asp">Begivenheder</A></CENTER><BR>
<CENTER><A HREF="http://agger/rollespil/noframe/links.asp">Links</A></CENTER><BR>
<CENTER><a href='mailto:Cridonori@.tele.dk'>Webmaster</a></CENTER><br>
</span>
</TD>
<TD class=TD4>
<span style="position:absolut;top:1%;width:100%;" >
<%
Dim strForNavn, strEfterNavn, strBrugerNavn, strE_Mail, varKoen, strAlder, varFRegler, varErfaring, varRegelboeger, strPostNummer, strHest
strForNavn = Request.Form("forNavn")
strEfterNavn = Request.Form("efterNavn")
strBrugerNavn = Request.Form("brugerNavn")
strE_Mail = Request.Form("e-mail")
varKoen = Request.Form("koen")
strAlder = Request.Form("alder")
varFRegler = Request.Form("fRegler")
varErfaring = Request.Form("erfaring")
varRegelboeger = Request.Form("regelboeger")
strPostNummer = Request.Form("postNr")
strHest = Request.Form("hest")
if request.form("forNavn") = "" then
fail = "Du skal indtaste et navn<br>"
end if
if request.form("efterNavn") = "" then
fail=fail & "Du skal indtaste dit efternavn<br>"
end if
if request.form("brugerNavn") = "" then
fail=fail & "Du skal indtaste et brugernavn.<br>"
end if
if request.form("e-mail") = "" or InStr(Request.Form("e-mail"),"@") = 0 or INSTR(Request.Form("e-mail"),"@@") <> 0 THEN
fail=fail & "Du har fejl i din email<br>"
end if
if request.form("password") <> Request.form("password1") or request.form("password") = "" or request.form("password1") = "" then
fail=fail & "Dit password stemmer ikke overens, eller du har glemt at skrive et password.<br>"
end if
if fail <> "" then
response.write "<CENTER><br><b>Du mangler at indtaste følgende:<br><br></b>" & fail &"<br><br></b><A HREF=java script:history.go(-1)>Tilbage</A><BR></CENTER>"
response.end
end if
%>
%>
<H3><P>
<CENTER><P>Vi har nu oprette dig som en <%=strAlder%> årig <%=varKoen%> Ved navn <H3 class="test"><%=strForNavn%></H3> <%=strEfterNavn%> som der kan skrives til på <%=strE_Mail%> <BR>
<P>Dit foretrukne spil er <%=varFRegler%> hvor dit erfaringsniavu er: <% =varErfaring %> og hvor din bogsamling er lig med: <%= varRegelboeger %> Du bor i <% =strPostNummer %> og har brugernavnet <%= strBrugernavn %><P><P>
Du vil gerne have spam omkring:<BR>
<%
if Request.QueryString("motri")="on" Then
Response.Write "Egne spil"
End If
%>
<%
if Request.QueryString("mon")="on" Then
Response.Write " Nyheder"
End If
%>
<%
if Request.QueryString("mosr")="on" Then
Response.Write "Og Spil reklamer"
End If
%><BR>
Og her er din præsentation:
<% = strHest %>
<BR>
Håber at du kommer til at hygge dig.
</CENTER></H3>
</SPAN>
</TD>
</TR>
<TR Height=30px>
<TD class=TD3>
<CENTER><A style="cursor:hand; color=yellow" onClick="this.style.behavior='url(#default#homepage)';this.setHomePage('www.rollespil.net');">Gør Til Startside</a></CENTER>
</TD>
<TD><CENTER>| <a href="http://agger/rollespil/noframe/1.html">Toppen af siden</a> |</CENTER></TD>
</TR>
</TABLE>
<%
'Tjek om form'en er send og så indsæt i databasen
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
Dim conn, SQL, rs
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={mySql}; SERVER=localhost; UID=jesper; PWD=xxxxxx; DATABASE=person;"
<% SQL = "SELECT bnavn FROM person WHERE bnavn = '" & Request.form("brugerNavn")& "'
set rs = connection.execute (SQL)
if rs.EOF then
SQL = "INSERT INTO person (fnavn, enavn, bnavn, email, password, alder, koen, postnr, erfaring, beskrivelse)VALUES ('"&Request.form("forNavn")&"', '"& Request.form("efterNavn")&"', '"& Request.form("brugerNavn")&"', '"& Request.form("e-mail")&"', '"& Request.form("password")&"', '', '', '', '', '')"
else
Response.write "<CENTER><br>Brugernavnet / password som du ønsker er desværre optaget, prøv venligst igen.<BR></CENTER>"
end if
Conn.Execute(SQL)
conn.close
set conn = nothing
End if
%>
</BODY>
</HTML>
