Hello,
I have an edit user page that allows the user to view their user information and make changes if possible. I have a simple html login page that directs to an asp page called edituser.asp when they login. Here is the edituser.asp code I have - <%@ Language=VBScript %>
-
<% Option Explicit %>
-
<!--#include virtual="/adovbs.inc"-->
-
<html>
-
<body>
-
<%
-
Dim oConn, oRs
-
Dim connectstr, sDSNDir, tablename
-
Dim db_name, db_username, db_userpassword
-
Dim dsn_name
-
-
dsn_name = "register.dsn"
-
tablename = "tblRegister"
-
db_username = "****"
-
db_userpassword = "****"
-
-
sDSNDir = Server.MapPath("/_dsn")
-
connectstr = "filedsn=" & sDSNDir & "/" & dsn_name
-
-
Set oConn = Server.CreateObject("ADODB.Connection")
-
oConn.Open connectstr
-
-
Dim objRS, bolFound, strEmail
-
strEmail = Request.Form("email")
-
-
If strEmail = "" Then
-
oConn.Close
-
Set objConn = Nothing
-
Response.Write "<a href='login.html'>"
-
Response.Write "You must enter a email address"
-
Response.Write "</a>"
-
Response.End
-
End If
-
-
Set objRS = Server.CreateObject("ADODB.Recordset")
-
objRS.Open "tblRegister", oConn, , , adCmdTable
-
bolFound = False
-
-
Do While Not (objRS.EOF OR bolFound)
-
If (StrComp(objRS("Email"), strEmail, vbTextCompare) = 0) Then
-
BolFound = True
-
Else
-
objRS.MoveNext
-
End If
-
Loop
-
-
If Not bolFound Then
-
objRS.Close
-
Set objRS = Nothing
-
oConn.Close
-
Set oConn = Nothing
-
Response.Write "<a href='login.html'>"
-
Response.Write "Invalid Email Address.<p>"
-
Response.Write "</a>"
-
Response.End
-
End If
-
-
If Not (StrComp(objRS("Password"), Request.Form("password"), _
-
vbBinaryCompare) = 0) Then
-
objRS.Close
-
Set objRS = Nothing
-
oConn.Close
-
Set oConn = Nothing
-
Response.Write "<a href='login.html'>"
-
Response.Write "Invalid password.<p>"
-
Response.Write "</a>"
-
Response.End
-
End If
-
%>
-
-
<!-- create form, fill with values from table -->
-
<form method=post action="modifyuser.asp">
-
<p>
-
State: <select name=state type=text value="<%=objRS("State")%>">
-
<option selected="state">Choose State</option>
-
<option value="AL">AL</option>
-
<option value="AR">AR</option>
-
<option value="AZ">AZ</option>
-
<option value="CA">CA</option>
-
<option value="CO">CO</option>
-
<option value="CT">CT</option>
-
<option value="DC">DC</option>
-
</select>
-
<p>
-
<input type=reset> <input type=submit>
-
</form>
-
</body>
-
</html>
-
<%
-
objRS.Close
-
Set objRS = Nothing
-
oConn.Close
-
Set oConn = Nothing
-
%>
In this code, I simply allow the user to edit their "State". When the user registers, they choose a state which is stored in my database. However, when I go to the edituser.asp page, it just shows "Choose State". How do I get the edituser.asp page to show which state they said they were from when they registered?
thanks - Jerry
17  5447 
Use javascript at the bottom of your page, something like this:
<script type="text/javascript">
document.form.state.value = "<%=state%>";
//etc..
</script>
Jerry,
Azrar's suggestion works (and might be the best approach), but if you want an ASP solution, it would look something like this: - <select name=state type=text>
-
<option>Choose State</option>
-
<option value="AL"
-
<% if objRS("state") = "AL" then response.write "SELECTED" %>
-
>AL</option>
-
<option value="AR"
-
<% if objRS("state") = "AR" then response.write "SELECTED" %>
-
>AR</option>
-
<option value="AZ"
-
<% if objRS("state") = "AZ" then response.write "SELECTED" %>
-
>AZ</option>
-
<option value="CA"
-
<% if objRS("state") = "CA" then response.write "SELECTED" %>
-
>CA</option>
-
<option value="CO"
-
<% if objRS("state") = "CO" then response.write "SELECTED" %>
-
>CO</option>
-
<option value="CT"
-
<% if objRS("state") = "CT" then response.write "SELECTED" %>
-
>CT</option>
-
<option value="DC"
-
<% if objRS("state") = "DC" then response.write "SELECTED" %>
-
>DC</option>
-
</select>
Of course if you had the list of states in an array or some other form that you could loop through them, that would make it significantly easier.
Jared
If your option group comes from a database, then you can do as I usually do: -
<select name="txtState">
-
<% Do While Not stateRS.EOF
-
If stateRs("statename") = userRS("state") Then %>
-
<Option selected><%=stateRs("typename")%></option>
-
<% Else %>
-
<Option><%=CatRs("statename")%></option>
-
<% End If
-
stateRs.MoveNext()
-
Loop %>
-
</select>
-
Gaz
You guys are the best. Thank you so very much for all of your reponses and help.
I ended up using jhardman's suggestion because it seemed to fit into my page the best. And it works exactly the way I had hoped.
Have a great day.
Jerry
Hi, I have a follow up question.
I also have a checkbox section in my edit user information section that I would like to show the user's registration choice on the edituser.asp page.
Currently, it is empty no matter what the user entered during registration
How do I code this so that a check mark will show up if they originally checked the box during registration?
Thanks
Well, Selects have a property called "selected", and check boxes have a similar property called "checked", so therein lies your clue. - <% If rs("somefield") = true Then %>
-
<input type="checkbox" name="chkSubscribed" value="subscribed" checked>
-
<% Else %>
-
<input type="checkbox" name="chkSubscribed" value="subscribed">
-
<% End If %>
Gaz.
Thanks Gaz.
I tried the following code but it isn't working for me. I think I might have the name or value incorrect.
I am using the name of the checkbox -"nonewsemail"- for the input name and left "subscribed" for the value as seen in the code below. Is that correct? If not, what am I supposed to use.
thanks again for all your help, I really appreciate it.
Jerry - Please check here to opt out of receiving the monthly newsletter:
-
<% If objRS("nonewsemail") = true Then %>
-
<input type="checkbox" name="nonewsemail" value="subscribed" checked />
-
<% Else %>
-
<input type="checkbox" name="nonewsemail" value="subscribed" />
-
<% End If %>Please check here to opt out of receiving the monthly newsletter:
-
<% If objRS("nonewsemail") = true Then %>
-
<input type="checkbox" name="nonewsemail" value="subscribed" checked />
-
<% Else %>
-
<input type="checkbox" name="nonewsemail" value="subscribed" />
-
<% End If %>
I really can't say why that's not working for you (did you mean to paste the code twice?).
I suggest you Response.Write your nonewsemail variable, to see what it contains.
I'm sorry about the last post, I accidently put the script in twice. Here is the script I am using. It won't work for some reason.
I am not sure how to do the Response.Write function you speak of.
My form shows up with a checkbox but everytime I try to edit this and include a checkmark in the box, it goes through with the edit but doesn't show the box as checked when I re-visit the edit user page.
Could it possible be the way my access field is set up? I have it set to text and don't required anything to be entered. - Please check here to opt out of receiving the monthly newsletter:
-
<% If objRS("nonewsemail") = true Then %>
-
<input type="checkbox" name="nonewsemail" value="" checked>
-
<% Else %>
-
<input type="checkbox" name="nonewsemail" value="">
-
<% End If %>
If your field was set up as text that makes sense, what happens if you change the database field to Yes/No type?
BTW, all I meant before was: - <%
-
Response.Write "<p>Dubug nonewsemail: " & ObjRs("nonewsemail") & "</p>"
-
%>
to see what comes from the database.
When putting booleans back in to the database via a checkbox, you should convert the value. I keep this handy: - function ChkToBool(value)
-
if ucase(value)="ON" then
-
ChkToBool=true
-
else
-
ChkToBool=false
-
end if
-
end function
Which is then used like, for example: -
rs("SomeField")=ChkToBool(request("SomeCheckBox"))
-
rs.Update
-
if your database says
on / off in the column you need to check against "on" or "off" not true/false
if it says
1 / 0 you can test this with true or false
if it says
true / false then you gotta test it with "true" or "false"
if your database says
on / off in the column you need to check against "on" or "off" not true/false
if it says
1 / 0 you can test this with true or false
if it says
true / false then you gotta test it with "true" or "false"
Well, its Access, so yes/no - which compares with true/false. At least it does for me.
Thanks for the input.
Well, I got the edituser page to work. I just had to change the field box in my access table to "yes/no" instead of "text".
However, when I do so, my registration.asp page shows an error. When I sumbit the registration, I get an error pointing me to my asp page line that reads - objRS("NoNewsEmail") = Request.Form("nonewsemail")
I don't understand why this error occurs once I change the access table field to yes/no. "NoNewsEmail" is the column in my access table, and "nonewsemail" is the input name for the form checkbox section.
Any ideas why this is happening?
I refer you to my post number 11.
Thanks for the input.
Well, I got the edituser page to work. I just had to change the field box in my access table to "yes/no" instead of "text".
However, when I do so, my registration.asp page shows an error. When I sumbit the registration, I get an error pointing me to my asp page line that reads
- objRS("NoNewsEmail") = Request.Form("nonewsemail")
I don't understand why this error occurs once I change the access table field to yes/no. "NoNewsEmail" is the column in my access table, and "nonewsemail" is the input name for the form checkbox section.
Any ideas why this is happening?
Markrawlingson wrote an article on this subject. It pretty much covers all the issues and how to avoid the problem.
Jared
Thank you all for your great explanations and help.
I ended up just using a drop down menu where the user enters yes or no. I took the easy way out and I am not pleased with that but I am under time constraints. Hopefully I will get some time in the future to revisit this question and put all of your tips to use. Thanks again for your help on this matter, I truely appreciate all of it.
Jerry
This post is helpful. I had the same problem and now solved.
Sign in to post your reply or Sign up for a free account.
Similar topics
by: middletree |
last post by:
For an ASp Intranet app, I have some code that should work, but I am not able
to make it happen for some reason, after spending considerable time on this.
I am pretty thick when it comes to...
|
by: Ian Davies |
last post by:
Hello
I have two drop down menus in my php script. The items displayed in the
second is dependent on which item is choosen from the first i.e. the choosen
item from the first filters the items in...
|
by: Sakharam Phapale |
last post by:
Hi All,
How to show dropdown list of menu items just like click on Parent menu.
For example,
Edit (Parent menu)
Cut (child menu)
Copy (child menu)
Paste (child menu)
|
by: Mark |
last post by:
I have two dropdown lists. Both have autopostback set to true. In both
dropdowns, when you select an item from the list, it redirects to the Value
property of the dropdown. Nothing fancy.
...
|
by: Peter |
last post by:
ASP.NET 2003
In the DataGrid how do I select current cell value in the dropdown box when
I click on the edit link, currently when I click on the edit link in the
DataGrid the dropdown box...
|
by: nishac |
last post by:
Can anyone suggest me how to make my drop down menu work in IE7 too.Its working in other browsers.On mouse over the submenus should be displayed.Am attaching my css code hereby.Anyone please check...
|
by: Greg Scharlemann |
last post by:
I'm trying to setup a dyamic dropdown list that displays a number of
text fields based on the selected number in the dropdown. The problem
I am running into is capturing the data already entered...
|
by: jerrydigital |
last post by:
good evening,
I am trying to allow my users to enter in text if they don't find their option on my drop down menu. In the code below, I can get a text box to show up when I select 'Other' on the...
|
by: coolv |
last post by:
Hello
I have problem in my page that the dropdown box is not displaying data according to selection of first dropdown.Please help me.
Below is my code.
thanks..............
<?php
...
|
by: Charles Arthur |
last post by:
How do i turn on java script on a villaon, callus and itel keypad mobile phone
|
by: ryjfgjl |
last post by:
In our work, we often receive Excel tables with data in the same format. If we want to analyze these data, it can be difficult to analyze them because the data is spread across multiple Excel files...
|
by: BarryA |
last post by:
What are the essential steps and strategies outlined in the Data Structures and Algorithms (DSA) roadmap for aspiring data scientists? How can individuals effectively utilize this roadmap to progress...
|
by: nemocccc |
last post by:
hello, everyone, I want to develop a software for my android phone for daily needs, any suggestions?
|
by: Hystou |
last post by:
There are some requirements for setting up RAID:
1. The motherboard and BIOS support RAID configuration.
2. The motherboard has 2 or more available SATA protocol SSD/HDD slots (including MSATA, M.2...
|
by: marktang |
last post by:
ONU (Optical Network Unit) is one of the key components for providing high-speed Internet services. Its primary function is to act as an endpoint device located at the user's premises. However,...
|
by: Hystou |
last post by:
Most computers default to English, but sometimes we require a different language, especially when relocating. Forgot to request a specific language before your computer shipped? No problem! You can...
|
by: jinu1996 |
last post by:
In today's digital age, having a compelling online presence is paramount for businesses aiming to thrive in a competitive landscape. At the heart of this digital strategy lies an intricately woven...
|
by: agi2029 |
last post by:
Let's talk about the concept of autonomous AI software engineers and no-code agents. These AIs are designed to manage the entire lifecycle of a software development project—planning, coding, testing,...
| |
