Add Member script

Jeg har nogle problemer med at få lortet her til at virke..
nogen som kan hjælpe mig ??

- http://80.161.70.237/addmember1.asp

Man kan udfylde det og det er godt nok.
Men lige så snart man trykker på Accept så kommer den op med en fejl..

Det skulle helst ordnes sådan så den sætter en persons infos ind i en tabel i databasen og viser den inde i members.asp siden..

Jeg bruger dette script :

<%
'----få fat på input'et, en linje for hver ting der skal hentes-----
varUsername = Request.Querystring("username")
varPassword = Request.Querystring("password")
varName = Request.Querystring("name")
varRank = Request.Querystring("rank")
varAge = Request.Querystring("age")
varLocation = Request.Querystring("location")
varEmail = Request.Querystring("email")
varQuote = Request.Querystring("quote")
varFavgun = Request.Querystring("favgun")
varFavMap = Request.Querystring("favmap")
varSens = Request.Querystring("sens")
varReso = Request.Querystring("reso")
varProcess = Request.Querystring("process")
varRam = Request.Querystring("ram")
varGfx = Request.Querystring("gfx")
varHdd = Request.Querystring("hdd")
varMonitor = Request.Querystring("monitor")
varSound = Request.Querystring("sound")
varMouse = Request.Querystring("mouse")
varMousepad = Request.Querystring("mousepad")
varKeyboard = Request.Querystring("keyboard")
varOs = Request.Querystring("os")

'----------Connect til din database som du plejer her----------

Set conn = CreateObject("ADODB.Connection")

conn.open = "DRIVER={MySQL ODBC 3.51 Driver};" _
    & "SERVER=[b]SENSORERET[/b];" _
    & " DATABASE==[b]SENSORERET[/b];" _
    & "UID==[b]SENSORERET[/b];PWD==[b]SENSORERET[/b]; OPTION=3"

Set rs = CreateObject("ADODB.Recordset")

SQL = "SELECT * FROM aaddmember32"
rs.open SQL, conn ', 1, 3

do while not rs.eof

'---------------------opret den nye bruger---------------------
strSQL = "Insert into aaddmember32 ("
strSQL = strSQL & "username, "
strSQL = strSQL & "password, "
</br>
strSQL = strSQL & "name, "              
strSQL = strSQL & "rank, "
strSQL = strSQL & "age, "
strSQL = strSQL & "location, "
strSQL = strSQL & "email, "
strSQL = strSQL & "quote, "
strSQL = strSQL & "favgun, "
strSQL = strSQL & "favmap, "
strSQL = strSQL & "sens, "
strSQL = strSQL & "reso, "
strSQL = strSQL & "process, "
strSQL = strSQL & "ram, "
strSQL = strSQL & "gfx, "
strSQL = strSQL & "hdd, "
strSQL = strSQL & "monitor, "
strSQL = strSQL & "sound, "
strSQL = strSQL & "mouse, "
strSQL = strSQL & "mousepad, "
strSQL = strSQL & "keyboard, "
strSQL = strSQL & "os) "
strSQL = strSQL & "values( "

strSQL = strSQL & "'" &varUsername &"', "
strSQL = strSQL & "'" &varPassword &"', "
strSQL = strSQL & "'" &varName &"', "
strSQL = strSQL & "'" &varRank &"', "
strSQL = strSQL & "'" &varAge &"', "
strSQL = strSQL & "'" &varLocation &"', "
strSQL = strSQL & "'" &varEmail &"', "
strSQL = strSQL & "'" &varQuote &"', "
strSQL = strSQL & "'" &varFavgun &"', "
strSQL = strSQL & "'" &varFavmap &"', "
strSQL = strSQL & "'" &varSens &"', "
strSQL = strSQL & "'" &varReso &"', "
strSQL = strSQL & "'" &varProcess &"', "
strSQL = strSQL & "'" &varRam &"', "
strSQL = strSQL & "'" &varGfx &"', "
strSQL = strSQL & "'" &varHdd &"', "
strSQL = strSQL & "'" &varMonitor &"', "
strSQL = strSQL & "'" &varSound &"', "
strSQL = strSQL & "'" &varMouse &"', "
strSQL = strSQL & "'" &varMousepad &"', "
strSQL = strSQL & "'" &varKeyboard &"', "
strSQL = strSQL & "'" &varOs &"', "           
Conn.Execute(strSQL)

Conn.Close
Set Conn = Nothing 

'----------------------------Vis info----------------------------

Response.Write "<b>Ny bruger oprettet!</b>"
Response.Write "Username : " &varUsername &"</br>"
Response.Write "Password : " &varPassword &"</br>"
Response.Write "Name : " &varName &"</br>"
Response.Write "Rank : " &varRank &"</br>"
Response.Write "Age : " &varAge &"</br>"
Response.Write "Location : " &varLocation &"</br>"
Response.Write "Email : " &varEmail &"</br>"
Response.Write "Quote : " &varQuote &"</br>"
Response.Write "Favorite Gun : " &varFavgun &"</br>"
Response.Write "Favorite Map : " &varFavmap &"</br>"
Response.Write "Sensivity: " &varSens &"</br>"
Response.Write "Resolution: " &varReso &"</br>"
Response.Write "Processor: " &varProcess &"</br>"
Response.Write "Ram: " &varRam &"</br>"
Response.Write "Gfx: " &varGfx &"</br>"
Response.Write "Harddisk: " &varHdd &"</br>"
Response.Write "Monitor : " &varMonitor &"</br>"
Response.Write "Sound : " &varSound &"</br>"
Response.Write "Mouse : " &varMouse &"</br>"
Response.Write "Mousepad : " &varMousepad &"</br>"
Response.Write "Keyboard : " &varKeyboard &"</br>"
Response.Write "Operativ System : " &varOs
%>

- Og for denne fejl :

Error Type:
Microsoft VBScript compilation (0x800A03FB)
Expected 'Loop'
/bund.asp, line 50

Er der nogen som kan hjælpe mig med at få det til at virke ?



[Redigeret d. 25/06-04 03:31:01 af Lasse Jørgensen]