Snitz Forums 2000
Snitz Forums 2000
Home | Profile | Register | Active Topics | Members | Search | FAQ
 All Forums
 Community Forums
 Code Support: ASP (Non-Forum Related)
 programmatically populate a form

Note: You must be registered in order to post a reply.
To register, click here. Registration is FREE!
Before posting, make sure you have read this topic!

Screensize:
UserName:
Password:
Format Mode:
Format: BoldItalicizedUnderlineStrikethrough Align LeftCenteredAlign Right Horizontal Rule Insert HyperlinkInsert EmailInsert Image Insert CodeInsert QuoteInsert List
   
Message:

* HTML is OFF
* Forum Code is ON
Smilies
Smile [:)] Big Smile [:D] Cool [8D] Blush [:I]
Tongue [:P] Evil [):] Wink [;)] Clown [:o)]
Black Eye [B)] Eight Ball [8] Frown [:(] Shy [8)]
Shocked [:0] Angry [:(!] Dead [xx(] Sleepy [|)]
Kisses [:X] Approve [^] Disapprove [V] Question [?]

 
   

T O P I C    R E V I E W
govictor Posted - 02 June 2011 : 18:04:42
I was wondering anyone would be able to point me to the right direction on where I can find information for a web form I am working on. I would like the form to auto populate with name, email, phone number etc. once I enter an email address. I would also like the to insert the new requestor information in the table if they are not found in the table. The current form was created using asp. I appreciate your help.

victor
3   L A T E S T    R E P L I E S    (Newest First)
Carefree Posted - 26 June 2011 : 06:41:09
Here's an example. Note the bits in red. The first table/form simply requests the Email address & submits the form to check it. If it's found, the second table will be populated with the fields from the database; otherwise the error message will be displayed. If the second form is submitted and the EMail account exists, the information in the database will be updated, if the EMail account does not exist, the information will be added to the database.


<%
<%
Session.LCID = 1033
Response.CodePage = 65001
Response.CharSet = "utf-8"
Response.Buffer = True
Set my_Conn = Server.CreateObject("ADODB.Connection")
strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\webrequests.mdb"
my_Conn.Open strConnString
Dim EMail
If Request.Form("HiddenField")="InUse" Then
	strSql = "SELECT * FROM WEB_REQUESTS WHERE EMAIL='" & Request.Form("EMail") & "'"
	Set rs=my_Conn.Execute(strSql)
	If not rs.EOF Then
		strLast=rs("Last_Name")
		strFirst=rs("First_Name")
		strPhone=rs("Phone_Number")
		strDept=rs("Department")
		strEmail=rs("EMail")
		rs.Close
	Else
		Response.Write 	"<table width=""500px;"" align=""center"" border=""1"" style=""border-collapse:collapse;"" cellpadding=""0"" cellspacing=""0"" bgColor=""#FF3333"">" & vbNewLine & _
			"	<tr valign=""middle"">" & vbNewLine & _
			"		<td align=""center"" width=""100%"">" & vbNewLine & _
			"			<font face=""arial unicode ms"" size=""4"" color=""#000066""><b>Requestor does not exist.</b>" & vbNewLine & _
			"			</font>" & vbNewLine & _
			"		</td>" & vbNewLine & _
			"	</tr>" & vbNewLine & _
			"</table>" & vbNewLine & _
			"<meta http-equiv=""Refresh"" content=""10; URL=thispage.asp"">"
		Response.End
	End If
	Set rs=Nothing
ElseIf Request.Form("HiddenField")="NotInUse" Then
	strSql = "SELECT * FROM WEB_REQUESTS WHERE EMAIL='" & Request.Form("EMail") & "'"
	Set rs=my_Conn.Execute(strSql)
	If not rs.EOF Then
		rs.Close
		strSql = "UPDATE WEB_REQUESTS SET Last_Name='" & Request.Form("LName") & "', First_Name='" & Request.Form("FName") & "', Phone_Number='" & Request.Form("Phone") & "', Department='" & Request.Form("Dept") & "' WHERE EMail='" & Request.Form("EMail") & "'"
		my_Conn.Execute(strSql)
	Else
		strSql = "INSERT INTO WEB_REQUESTS (Last_Name, First_Name, Phone_Number, Department, EMail) VALUES ('" & Request.Form("LName") & "', '" & Request.Form("FName") & "', '" & Request.Form("Phone") & "', '" & Request.Form("Dept") & "', '" & Request.Form("EMail") & "')"
		my_Conn.Execute(strSql)
	End If
	Set rs=Nothing
	Response.Redirect "thispage.asp"
End If
Response.Write	"<form action=""thispage.asp"" method=""post"">" & vbNewLine & _
	"	<input type=""hidden"" name=""HiddenField"" value=""InUse"">" & vbNewLine & _
	"	<table width=""500px;"" align=""center"" border=""1"" style=""border-collapse:collapse;"" cellpadding=""0"" cellspacing=""0"" bgColor=""#FF3333"">" & vbNewLine & _
	"		<tr valign=""middle"">" & vbNewLine & _
	"			<td align=""center"" width=""100%"">" & vbNewLine & _
	"				<table align=""center"" width=""100%"" cellpadding=""2"" border=""1"" style=""border-collapse:collapse;"">" & vbNewLine & _
	"					<tr valign=""middle"">" & vbNewLine & _
	"						<td align=""center"" colspan=""2"" width=""100%"" bgColor=""#0066FF"">" & vbNewLine & _
	"							<font face=""arial unicode ms"" size=""4"" color=""#000066""><b>Requestor</b>" & vbNewLine & _
	"							</font>" & vbNewLine & _
	"						</td>" & vbNewLine & _
	"					</tr>" & vbNewLine & _
	"					<tr valign=""middle"">" & vbNewLine & _
	"						<td align=""right"" width=""50%"" bgColor=""#FFFFFF"">" & vbNewLine & _
	"							<font face=""arial unicode ms"" size=""2"" color=""#440000""><b>      Email: </b>" & vbNewLine & _
	"							</font>" & vbNewLine & _
	"						</td>" & vbNewLine & _
	"						<td align=""left"" width=""50%"" bgColor=""#FFFF9C"">" & vbNewLine & _
	"							<input type=""text"" name=""EMAIL"" value=""" & strEmail & """ size=""50"" maxlength=""75"">" & vbNewLine & _
	"						</td>" & vbNewLine & _
	"					</tr>" & vbNewLine & _
	"					<tr valign=""middle"">" & vbNewLine & _
	"						<td align=""center"" colspan=""2"" width=""100%"" bgColor=""#FFFFFF"">" & vbNewLine & _
	"							<input type=""submit"" value=""Submit"">" & vbNewLine & _
	"						</td>" & vbNewLine & _
	"					</tr>" & vbNewLine & _
	"				</table>" & vbNewLine & _
	"			</td>" & vbNewLine & _
	"		</tr>" & vbNewLine & _
	"	</table>" & vbNewLine & _
	"</form><br>" & vbNewLine & _
	"<form action=""thispage.asp"" method=""post"">" & vbNewLine & _
	"	<input type=""hidden"" name=""HiddenField"" value=""NotInUse"">" & vbNewLine & _
	"	<table width=""500px;"" align=""center"" border=""1"" style=""border-collapse:collapse;"" cellpadding=""0"" cellspacing=""0"" bgColor=""#FF3333"">" & vbNewLine & _
	"		<tr valign=""middle"">" & vbNewLine & _
	"			<td align=""center"" width=""100%"">" & vbNewLine & _
	"				<table align=""center"" width=""100%"" border=""1"" cellpadding=""2"" style=""border-collapse:collapse;"">" & vbNewLine & _
	"					<tr valign=""middle"">" & vbNewLine & _
	"						<td align=""center"" colspan=""2"" width=""100%"" bgColor=""#0066FF"">" & vbNewLine & _
	"							<font face=""arial unicode ms"" size=""4"" color=""#000066""><b>Identification</b>" & vbNewLine & _
	"							</font>" & vbNewLine & _
	"						</td>" & vbNewLine & _
	"					</tr>" & vbNewLine & _
	"					<tr valign=""middle"">" & vbNewLine & _
	"						<td align=""right"" width=""50%"" bgColor=""#FFFFFF"">" & vbNewLine & _
	"							<font face=""arial unicode ms"" size=""2"" color=""#440000""><b>Last Name: </b>" & vbNewLine & _
	"							</font>" & vbNewLine & _
	"						</td>" & vbNewLine & _
	"						<td align=""left"" width=""50%"" bgColor=""#FFFF9C"">" & vbNewLine & _
	"							<input type=""text"" name=""LName"" value=""" & strLast & """ size=""50"" maxlength=""75"">" & vbNewLine & _
	"						</td>" & vbNewLine & _
	"					</tr>" & vbNewLine & _
	"					<tr valign=""middle"">" & vbNewLine & _
	"						<td align=""right"" width=""50%"" bgColor=""#FFFFFF"">" & vbNewLine & _
	"							<font face=""arial unicode ms"" size=""2"" color=""#440000""><b>First Name: </b>" & vbNewLine & _
	"							</font>" & vbNewLine & _
	"						</td>" & vbNewLine & _
	"						<td align=""left"" width=""50%"" bgColor=""#FFFF9C"">" & vbNewLine & _
	"							<input type=""text"" name=""FName"" value=""" & strFirst & """ size=""50"" maxlength=""75"">" & vbNewLine & _
	"						</td>" & vbNewLine & _
	"					</tr>" & vbNewLine & _
	"					<tr valign=""middle"">" & vbNewLine & _
	"						<td align=""right"" width=""50%"" bgColor=""#FFFFFF"">" & vbNewLine & _
	"							<font face=""arial unicode ms"" size=""2"" color=""#440000""><b>Phone: </b>" & vbNewLine & _
	"							</font>" & vbNewLine & _
	"						</td>" & vbNewLine & _
	"						<td align=""left"" width=""50%"" bgColor=""#FFFF9C"">" & vbNewLine & _
	"							<input type=""text"" name=""Phone"" value=""" & strPhone & """ size=""50"" maxlength=""75"">" & vbNewLine & _
	"						</td>" & vbNewLine & _
	"					</tr>" & vbNewLine & _
	"					<tr valign=""middle"">" & vbNewLine & _
	"						<td align=""right"" width=""50%"" bgColor=""#FFFFFF"">" & vbNewLine & _
	"							<font face=""arial unicode ms"" size=""2"" color=""#440000""><b>Department: </b>" & vbNewLine & _
	"							</font>" & vbNewLine & _
	"						</td>" & vbNewLine & _
	"						<td align=""left"" width=""50%"" bgColor=""#FFFF9C"">" & vbNewLine & _
	"							<input type=""text"" name=""Dept"" value=""" & strDept & """ size=""50"" maxlength=""75"">" & vbNewLine & _
	"						</td>" & vbNewLine & _
	"					</tr>" & vbNewLine & _
	"					<tr valign=""middle"">" & vbNewLine & _
	"						<td align=""right"" width=""50%"" bgColor=""#FFFFFF"">" & vbNewLine & _
	"							<font face=""arial unicode ms"" size=""2"" color=""#440000""><b>EMail: </b>" & vbNewLine & _
	"							</font>" & vbNewLine & _
	"						</td>" & vbNewLine & _
	"						<td align=""left"" width=""50%"" bgColor=""#FFFF9C"">" & vbNewLine & _
	"							<input type=""text"" name=""EMail"" value=""" & strEMail & """ size=""50"" maxlength=""75"">" & vbNewLine & _
	"						</td>" & vbNewLine & _
	"					</tr>" & vbNewLine & _
	"					<tr valign=""middle"">" & vbNewLine & _
	"						<td align=""center"" colspan=""2"" width=""100%"" bgColor=""#FFFFFF"">" & vbNewLine & _
	"							<input type=""submit"" value=""Submit"">" & vbNewLine & _
	"						</td>" & vbNewLine & _
	"					</tr>" & vbNewLine & _
	"				</table>" & vbNewLine & _
	"			</td>" & vbNewLine & _
	"		</tr>" & vbNewLine & _
	"	</table>" & vbNewLine & _
	"</form>" & vbNewLine
%>
govictor Posted - 03 June 2011 : 10:20:57
Hello Doug,
Thanks for your response. I am new to asp. would you please be able to give me an example. This is the code I have been able to come up with but I do not know what I am missing:

<%
Dim EMAIL

EMAIL = nz(DLookup("[EMAIL]","REQUESTOR","[EMAIL]=" & Me!EMAIL),0)
If EMAIL = 0 Then
Msgbox "This requestor does not exist in table Requestor"



<% Private Function RecordExists() As Boolean
Dim WebProjects.mdb Database
Dim MM_editCmd As DAO.Recordset
Dim MM_editCmd As String

'Check that all the relevent controls meet the criteria
If Nz(Me.FIRST_NAME, 0) > 0 AND Len(Nz(Me.LAST_NAME, "")) > 0 AND Len(Nz(Me.PHONE_NUMBER, "")) > 0 AND Len(Nz(Me.DEPARTMENT, "")) > 0 AND Len(Nz(Me.EMAIL, "")) > 0
Then
MM_editCmd.CommandText = SELECT (FIRST_NAME, LAST_NAME, PHONE_NUMBER, DEPARTMENT, EMAIL) FROM WEB_REQUESTS WHERE )
Me.FIRST_NAME & '
Me.lAST_NAME & '
Me.PHONE_NUMBER & '
Me.DEPARTMENT & """"
Me.EMAIL & """"

%>


I appreciate your help.
Victor



quote:
Originally posted by Doug G

Basically you have your asp code add the appropriate Value attributes to each form element in the html stream.

Doug G Posted - 03 June 2011 : 01:13:27
Basically you have your asp code add the appropriate Value attributes to each form element in the html stream.

Snitz Forums 2000 © 2000-2021 Snitz™ Communications Go To Top Of Page
This page was generated in 0.03 seconds. Powered By: Snitz Forums 2000 Version 3.4.07