programmatically populate a form

Snitz™ Forums 2000
https://forum.snitz.com/forumTopic/Posts/69933?pagenum=1
05 November 2025, 03:13

Topic

govictor
programmatically populate a form
02 June 2011, 18:04


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

 

Replies ...

Doug G
03 June 2011, 01:13


Basically you have your asp code add the appropriate Value attributes to each form element in the html stream.
govictor
03 June 2011, 10:20


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



Originally posted by Doug G
Basically you have your asp code add the appropriate Value attributes to each form element in the html stream.
Carefree
26 June 2011, 06:41


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.
Code:

<%
<%
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
%>
© 2000-2021 Snitz™ Communications