Select box og asp
Hej jeg har et underligt problem!jeg har en select box
hvor mine memebers kan skifte deres burger info
jeg har en selectbox
hvor det er muligt at definere sin bandwith.
og se hvad den er sat til.
men lige så snart siden kommer op på min ftp
viser den bare et tomt feldt boxen
men boxen indeholder dov alle options som den skal!
det virker også fint på iis!
<%
If Request.Form(\"selbox\") = \"account\" or session(\"action\") = \"myinfo\" Then
Session(\"action\") = \"myupdate\"
Set conn=Server.CreateObject(\"ADODB.Connection\")
conn.open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.Mappath(\"bbdb.mdb\") & \";\"
sql = \"SELECT * FROM users WHERE Id=\" & Id
set rs = Server.CreateObject(\"ADODB.Recordset\")
rs.Open sql,conn
Response.Write \"<center><Form action=\'change.asp\' Method=\'Post\'>Member:<BR>\"
Response.Write \"<input type=\'text\'STYLE=\'background-color:#ADDBE7\' STYLE=\'border:none;\' value=\'\" & rs.fields(\"user\").value & \"\' name=\'formuser\'>\"
Response.Write \"<BR>Password:<BR><input type=\'Password\' STYLE=\'background-color:#ADDBE7\' STYLE=\'border:none;\' value=\'\" & rs.fields(\"pass\").value & \"\' name=\'formpass\'>\"
Response.Write \"<BR>Icq:<BR><input type=\'text\' STYLE=\'background-color:#ADDBE7\' STYLE=\'border:none;\' value=\'\" & rs.fields(\"icq\").value & \"\' name=\'formicq\'>\"
Response.Write \"<BR>E-Mail:<BR><input type=\'text\'STYLE=\'background-color:#ADDBE7\' STYLE=\'border:none;\' value=\'\" & rs.fields(\"email\").value & \"\' name=\'formemail\'>\"
Response.Write \"<BR>Bandwith:<BR><Select Name=\'formbandwith\' STYLE=\'background-color:#addbe7;\'>\"
Response.Write \"<Option Value=\'\'>\" & rs(\"bandwith\")
Response.Write \"<Option Value=\'\" & rs(\"bandwith\") & \"\'>\" & rs(\"bandwith\")
Response.Write \"<Option Value=\'Dialup 28,8 kbit/s\'>Dialup 28,8 kbit/s<Option Value=\'Dialup 33,6 kbit/s\'>Dialup 33,6 kbit/s\"
Response.Write \"<Option Value=\'Dialup 56,6 kbit/s\'>Dialup 56,6 kbit/s<Option Value=\'Dialup 64 kbit/s\'>Dialup 64 kbit/s\"
Response.Write \"<Option Value=\'Dialup 128 kbit/s\'>Dialup 128 kbit/s<Option Value=\'Adsl 256/128 kbit/s\'>Adsl 256/128 kbit/s\"
Response.Write \"<Option Value=\'Adsl 256/256 kbit/s\'>Adsl 256/256 kbit/s<Option Value=\'Adsl 384/128 kbit/s\'>Adsl 384/128 kbit/s\"
Response.Write \"<Option Value=\'Adsl 384/384 kbit/s\'>Adsl 384/384 kbit/s<Option Value=\'Adsl 512/128 kbit/s\'>Adsl 512/128 kbit/s\"
Response.Write \"<Option Value=\'Adsl 512/512 kbit/s\'>Adsl 512/512 kbit/s<Option Value=\'Adsl 768/128 kbit/s\'>Adsl 768/128 kbit/s\"
Response.Write \"<Option Value=\'Adsl 1024/128 kbit/s\'>Adsl 1024/128 kbit/s<Option Value=\'Adsl 1024/256 kbit/s\'>Adsl 1024/256 kbit/s\"
Response.Write \"<Option Value=\'Adsl 1024/512 kbit/s\'>Adsl 1024/512 kbit/s<Option Value=\'Adsl 2048/128 kbit/s\'>Adsl 2048/128 kbit/s\"
Response.Write \"<Option Value=\'Adsl 2048/256 kbit/s\'>Adsl 2048/256 kbit/s<Option Value=\'Adsl 2048/512 kbit/s\'>Adsl 2048/512 kbit/s\"
Response.Write \"</select><BR>\"
Response.Write \"<Input Type=\'submit\' STYLE=\'border-color:#000000;background:#0065CE;\' Value=\'Update\'></form></center>\"
Conn.Close
Set Conn = Nothing
End If
%>
