Too few parameters, igen

Tja, hade problem me ett asp script där man ska kunna ändra lite info om sig själv som inloggad användare. Skrev om de förut där alla sa att felet låg i SQL:en. Så ja försökte fixa de men de gick åt helvete... Så ja undrar om ni kan hjälpa mig igen?
Föst kommer man till de klasiska forumet som ser ut så här:

<!-- #include file="adovbs.inc" -->

<% If Request.QueryString("prat") = "" Then %>

<%	Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&server.mappath("..\data\data.mdb")

	strAdressID = UCase(Request.QueryString("AdressID"))
	Set RecSet = Server.CreateObject("ADODB.Recordset")
	visa = "SELECT * FROM users WHERE username  LIKE '" & strAdressID & "%'" ' " 
   RecSet.Open Visa, Connect, adOpenStatic, adLockOptimistic %>
	
	<form method="POST" action="installningar2.asp">

	<input type="hidden" name="ad" value="<% =Request.QueryString("adressID") %>">

	<FONT CLASS="m">&nbsp;Lösenord<BR>		
	<input type="password" size="28" name="password" value="<% =RecSet("password") %>"><br><BR>	

	<FONT CLASS="m">&nbsp;För och efternamn:<BR>		
	<input type="text" size="28" name="namn" value="<% =RecSet("namn") %>"><br><BR>	
	
	<FONT CLASS="m">&nbsp;Ålder<BR>		
	<input type="text" size="28" name="alder" value="<% =RecSet("alder") %>"><br><BR>	

	<FONT CLASS="m">&nbsp;bor<BR>		
	<input type="text" size="28" name="bor" value="<% =RecSet("bor") %>"><br><BR>	

	<FONT CLASS="m">&nbsp;bild 
	<input type="text" size="28" name="bild" value="<% =RecSet("bild") %>"><br><BR>	

	&nbsp;Lite om dig själv 

	<textarea rows="5" cols="79"  name="text"> <% =RecSet("omsigsjalv") %></textarea><BR><BR>	

	<FONT CLASS="m">&nbsp;Mail:<BR>		
	<input type="text" size="33" name="mail" value="<% =RecSet("mail") %>"><br><BR>

	<FONT CLASS="m">&nbsp;Hemsida:<BR>		
	<input type="text" size="33" name="hemsida" value="<% =RecSet("hemsida") %>"><br><BR>

	<FONT CLASS="m">&nbsp;ICQ:<BR>		
	<input type="text" size="33" name="icq" value="<% =RecSet("icq") %>"><br><BR>

	<FONT CLASS="m">&nbsp;Lunarstorm:<BR>		
	<input type="text" size="33" name="lunar" value="<% =RecSet("lunar") %>"><br><BR

	<input type="submit" value="Uppdatera">

	</form>

<% End If %>

Som sen går vidare till installningar2.asp:

<!-- #include file="adovbs.inc" -->

<%	Set Connect = Server.CreateObject("ADODB.Connection")
	Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&server.mappath("..\data\data.mdb")

	strAdressID = UCase(Request.QueryString("AdressID"))
	Set RecSet = Server.CreateObject("ADODB.Recordset")
	visa = "SELECT * FROM users WHERE username  LIKE '" & strAdressID & "%'" ' " 
  	RecSet.Open Visa, Connect, adOpenStatic, adLockOptimistic

	RecSet("Password") = Request.Form("password")
	RecSet("namn") = Request.Form("namn")
	RecSet("alder") = Request.Form("alder")
	RecSet("bor") = Request.Form("bor")
	RecSet("bild") = Request.Form("bild")
	RecSet("omsigsjalv") = Request.Form("omsigsjalv")
	RecSet("mail") = Request.Form("mail")
	RecSet("hemsida") = Request.Form("hemsida")
	RecSet("icq") = Request.Form("icq")
	RecSet("lunar") = Request.Form("lunar")

	RecSet.Update
	RecSet.Close %>

Tillägas kan vara att det inte behöver vara säkert alls, bara de funkar =)

Just ja, felmedelandet oxå:

Microsoft OLE DB Provider for ODBC Drivers error '80040e10' 

[Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 1. 

/login/installningar2.asp, line 49

Hoppas nån orkar med mig igen =)
// KoTTeN

------------------
        KoTTeN
GameStyle

Vilken rad är 49

------------------
Adde

Just ja, visste att jag glömde nå!

<!-- #include file="adovbs.inc" -->
<% Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&server.mappath("..\data\data.mdb")

strAdressID = UCase(Request.QueryString("AdressID"))
Set RecSet = Server.CreateObject("ADODB.Recordset")
visa = "SELECT * FROM users WHERE username LIKE '" & strAdressID & "%'" ' " 
-- RAD 49 -->> RecSet.Open Visa, Connect, adOpenStatic, adLockOptimistic

RecSet("Password") = Request.Form("password")
RecSet("namn") = Request.Form("namn")
RecSet("alder") = Request.Form("alder")
RecSet("bor") = Request.Form("bor")
RecSet("bild") = Request.Form("bild")
RecSet("omsigsjalv") = Request.Form("omsigsjalv")
RecSet("mail") = Request.Form("mail")
RecSet("hemsida") = Request.Form("hemsida")
RecSet("icq") = Request.Form("icq")
RecSet("lunar") = Request.Form("lunar")

RecSet.Update
RecSet.Close %>

------------------
        KoTTeN
GameStyle

I denna snutt hittar jag följade "fel":

visa = "SELECT * FROM users WHERE username LIKE '" & strAdressID & "%'"

1. Jag hade inte använt LIKE utan:

visa = "SELECT * FROM users WHERE username = '" & strAdressID & "'"

och då får du ta bort ett %. Dock fattades du ett % också. Kolla också så du har ett värde i variablen strAdressId.

mvh Jörgen

------------------
"Ett väl utfört arbete ger en inre tillfredsställelse och är den grund varpå samhället vilar."

kan vara så att kolumnen username inte finns

------------------
-------
/Pirro
Response.Redirect " http://pereng.cjb.net "

Tackar!
Nu funkar de!!!

// KoTTeN