registrering. fel vid inmatning till databasen

Jag får fel: "Operationen måste använda en fråga som kan uppdateras." Och jag kan inte hitta felet. Nån som kan hjälpa?

<form method="POST" name="kontroll" onSubmit="return kollaFormular()" action="admin.asp?register=send">
  <input type="hidden" name="display" size="4" value="200" disabled onFocus="this.blur();">
    <table border="0">
      <tr>
        <td colSpan=2><b><br>Registrera dig</b><br><br></td>
      </tr>
      <tr>
        <td>Nick:</td>
        <td><input class=input type="text" name="Username" maxlength="15"></td>
      </tr>
      <tr>
        <td>Förnamn:</td>
        <td><input class=input type="text" name="Nameone" maxlength="15"></td>
      </tr>
      <tr>
        <td>Efternamn:</td>
        <td><input class=input type="text" name="Nametwo" maxlength="15"></td>
      </tr>
      <tr>
        <td>Telefonnummer:</td>
        <td><input class=input type="text" name="Tele" maxlength="20"></td>
      </tr>
      <tr>
        <td>Lösenord:</td>
        <td><input class=input type="password" name="Password" maxlength="15"></td>
      </tr>
      <tr>
        <td>Lösenord igen:</td>
        <td><input class=input type="password" name="Password2" maxlength="15"></td>
      </tr>
      <tr>
        <td>E-post:</td>
        <td><input class=input type="text" name="Mail" maxlength="100"></td>
      </tr>
      <tr>
        <td>E-post igen:</td>
        <td><input class=input type="text" name="Mail2" maxlength="100"></td>
      </tr>
      <tr>
        <td>Födelseår:</td>
        <td><select class="input" name="Age">
			<option value="-1" ></option>
			<option value="2005" >2005</option>
			<option value="2004" >2004</option>
			<option value="2003" >2003</option>
			<option value="2002" >2002</option>
			<option value="2001" >2001</option>
			<option value="2000" >2000</option>
			<option value="1999" >1999</option>
			<option value="1998" >1998</option>
			<option value="1997" >1997</option>
			<option value="1996" >1996</option>
			<option value="1995" >1995</option>
			<option value="1994" >1994</option>
			<option value="1993" >1993</option>
			<option value="1992" >1992</option>
			<option value="1991" >1991</option>
			<option value="1990" >1990</option>
			<option value="1989" >1989</option>
			<option value="1988" >1988</option>
			<option value="1987" >1987</option>
			<option value="1986" >1986</option>
			<option value="1985" >1985</option>
			<option value="1984" >1984</option>
			<option value="1983" >1983</option>
			<option value="1982" >1982</option>
			<option value="1981" >1981</option>
			<option value="1980" >1980</option>
			<option value="1979" >1979</option>
			<option value="1978" >1978</option>
			<option value="1977" >1977</option>
			<option value="1976" >1976</option>
			<option value="1975" >1975</option>
			<option value="1974" >1974</option>
			<option value="1973" >1973</option>
			<option value="1972" >1972</option>
			<option value="1971" >1971</option>
			<option value="1970" >1970</option>
			<option value="1969" >1969</option>
			<option value="1968" >1968</option>
			<option value="1967" >1967</option>
			<option value="1966" >1966</option>
			<option value="1965" >1965</option>
			<option value="1964" >1964</option>
			<option value="1963" >1963</option>
			<option value="1962" >1962</option>
			<option value="1961" >1961</option>
			<option value="1960" >1960</option>
			<option value="1959" >1959</option>
			<option value="1958" >1958</option>
			<option value="1957" >1957</option>
			<option value="1956" >1956</option>
			<option value="1955" >1955</option>
			<option value="1954" >1954</option>
			<option value="1953" >1953</option>
			<option value="1952" >1952</option>
			<option value="1951" >1951</option>
			<option value="1950" >1950</option>
		</select></td>
      </tr>
      <tr>
	<td>Man/Kvinna:</td>
        <td><input class=radio type="radio" name="Sex" value="1" checked>Man
	    <input class=radio type="radio" name="Sex" value="0">Kvinna</td>
      </tr>
      <tr>
        <td colspan="2"><input class=radio type="checkbox" name="godkan" value="1"><a href="javascript:regler();">Jag godkänner medlems avtalet.</a></td>
      </tr>
      <tr>
        <td></td>
        <td><input type="image" name="submit" src="btn_register.gif"></td></tr>
      </tr>
    </table>
</form>

'********* Här startar "Registrera"

If Request.QueryString = "register" Then 

If Session("User") = "Yes" Then
Response.Write "Du är redan inloggad<br>" &_
	"<a href='admin.asp?reqpass'>Glömt ditt lösenord?</a>."

Else

End If
End If

'********* Här skickas registreringen till databasen

If Request.QueryString("register") = "send" Then

If Not Isnull(Request.Form("Username")) Then strUsername = Cstr(Request.Form("Username"))
If Not Isnull(Request.Form("Mail")) Then strMail = Cstr(Request.Form("Mail"))

SQL = "SELECT f_Mail, f_User FROM t_Members where f_Mail = '" & strMail & "' OR f_User = '" & strUsername & "'"
intError = 0
set RS = Connect.Execute(SQL)
If Not rs.EOF Then
	While Not rs.EOF
		If LCase(RS("f_User")) =  LCase(strUsername) Then
			intError = intError + 1
			strError = "<font class=smallheader>Användarnamnet är upptaget</font><br>" &_
					"<a href=""javascript:history.go(-1)"">Tillbaka</a>"
		End If
		If LCase(RS("f_Mail")) =  LCase(strMail) Then
			intError = intError + 1
			strError = "<font class=smallheader>Mailen är redan använd.</font> " &_ 
					"<a href=""login.asp?reqlosen"">Glömt bort lösenordet?</a><br>" &_
					"<a href=""javascript:history.go(-1)"">Tillbaka</a>"
		End If
		rs.movenext
	Wend
	If intError = 1 Then Response.Write strError Else response.write "<font class=smallheader>Både mailen och " &_
		"användarnamnet är upptaget</font><br><a href=""javascript:history.go(-1)"">Tillbaka</a>"
Else
	Username = Request.Form("Username")
	Password = Request.Form("Password")
	Mail = Request.Form("Mail")
	Age = Request.Form("Age")
	Sex = Request.Form("Sex")
	Tele = Request.Form("Tele")
	Name = Request.Form("Nameone") & Request.Form("Nametwo")
	Admin = 0

		Session.LCID = 1053
	strDate = Date
	
	strSQL = "INSERT INTO t_Members " _
	& "( f_User, f_Mail, f_Password, f_Name, f_Age, f_Sex, f_Tele, f_RegDate, f_Admin ) " _
	& "VALUES( '" & Username & "', '" & Mail & "', '" & Password & "', '" & Name & "', '" & Age & "', '" & Sex & "', '" & Tele & "', '" & strDate & "', '" & Admin & "' )"

	[b]Connect.Execute( strSQL )[/b]

	Response.Redirect "admin.asp?register=thanks"
End If
End If

If Request.QueryString("register") = "thanks" Then

Response.Write "<font class=smallheader>Tack för din registrering.</font><br>"
End If