RE: Validation Help

dsk525 · Jul 9, 2002

Hi,

I am not experienced in validation. Could I kindly request for some help in javascript validation? I have the following fields which I would like to FORCE EACH user to fill out on the web page:

UserName, Password, FirstName, LastName, Email, LoginName, CompanyName, PhoneNumber

Any help in integrating the validation with the code below would be of tremendous help!

<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<DIV ALIGN="LEFT"><FONT FACE="Verdana, Arial, Helvetica, sans-serif" SIZE="5"><object classid="clsid

27CDB6E-AE6D-11cf-96B8-444553540000" codebase="

http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0"

width="228" height="86" id=ShockwaveFlash1>
<param name=movie value="../images/xxx_anim.swf">
<param name=quality value=high>
<embed src="../images/xxx_anim.swf" quality=high pluginspage="

http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash"

type="application/x-shockwave-flash" width="228" height="86">
</embed>
</object></font>
</DIV>
<TABLE WIDTH="100%" BORDER="0">
<TR>
<TD COLSPAN="3" bgcolor="#CC9933"><font face="Verdana, Arial, Helvetica, sans-serif"><b>Request Sent</b></font></td>
</TR>
</TABLE>
<%

Dim cnIns
Dim cmdIns
Dim strSQLStatement
Dim strUserName
Dim strPassword
Dim strFirstName
Dim strLastName
Dim strEmail
Dim strLoginName
Dim strCompanyName
Dim strPhoneNumber
Dim strFaxNumber

strUserName = Request.QueryString("UserName&quot

strPassword = Request.QueryString("Password&quot

strFirstName = Request.QueryString("FirstName&quot

strLastName = Request.QueryString("LastName&quot

strEmail = Request.QueryString("email&quot

strLoginName = Request.QueryString("LoginName&quot

strCompanyName = Request.QueryString("CompanyName&quot

strPhoneNumber = Request.QueryString("PhoneNumber&quot

strFaxNumber = Request.QueryString("FaxNumber&quot

strSQLStatement = "Insert into LoginInfo (UserName,PasswordFld,FirstName,LastName,EMailAddress,Status,CompanyName,WorkPhoneNo,FaxNo,UserLevel) " _
+ "values ('" + strUserName + "','" + strPassword + "','" + strFirstName + "','" _
+ strLastName + "','" + strEmail + "','N','" + strCompanyName + "','" _
+ strPhoneNumber + "','" + strFaxNumber + "','NOTUSR')"

set cnIns = Server.CreateObject("ADODB.Connection&quot

cnIns.ConnectionTimeout = 5
cnIns.CommandTimeout = 15

cnIns.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:/xxxDatabase/xxxDatabase.mdb"

Set cmdIns = Server.CreateObject("ADODB.Command&quot

cmdIns.ActiveConnection = cnIns
cmdIns.CommandText = strSQLStatement
cmdIns.CommandType = 1
cmdIns.Execute

cnIns.Close

'Send mail to the administrator.
Dim sendMail
Dim strBody

Set sendMail = CreateObject("CDONTS.NewMail&quot

sendMail.From = strEmail
sendMail.To = "xxx.xxx@xxx.com"
sendMail.bcc = "xxx@xxx.com"

sendMail.Subject = "Request for Login/Password."

strBody = vbCRLF + vbCRLF + vbCRLF _
& "Request for new Login/Password" _
& vbCRLF + vbCRLF _
& "User Name : " + strUserName + vbCRLF _
& "Password : " + strPassword + vbCRLF _
& "First Name : " + strFirstName + vbCRLF _
& "Last Name : " + strLastName + vbCRLF _
& "Login requested : " + strLoginName + vbCRLF _
& "E mail Address : " + strEmail + vbCRLF _
& "Company : " + strCompanyName + vbCRLF _
& vbCRLF + vbCRLF _
& "Thank You" + vbCRLF _
& strFirstName + " " + strLastName

sendMail.Body = strBody

on error resume next
sendMail.Send

If Err.Number = 0 Then
Else
Response.Write "Error: " & Err.Description
End If

%>

<TABLE WIDTH="100%">
<TR>
<TD ALIGN="CENTER"><BR><BR><BR><BR><STRONG><FONT SIZE=3 COLOR=RED>Your request has been sent.</FONT></STRONG></TD>
</TR>
</TABLE>

</BODY>
</HTML>

onpnt · Jul 9, 2002

if you really want to make it generic and straight forward just calling a alert when the var is empty
<%
if UserName = "" then
alert "Please fill in a Name!"
exit sub
else
etc etc...

when you get intot he phone number etc.. check for only number fields nad that it is max length of regular phone number.

email check for the @ . char.
like this
Dim SearchString, SearchChar, MyPos, emal, MyVar 'check for valid email
emal = items.email.value
SearchString = emal
SearchChar = "@"
MyPos = Instr(1, SearchString, "@&quot

if MyPos = 0 then

MyVar = MsgBox ("You must fill in a valid E-mail address!&quot

elseif MyPos = Instr(1, SearchString, "@&quot

then
' and so on

here's a script of mine to check for characters in the name etc that only allow letters
Dim bannedchars, charcount, onebanned, valid, inputvalue

bannedchars = "'^\/()#~<>|`¬:;!@$*+=%"
valid = True
inputvalue = form1.Text1.value
inputvalue = Trim(Replace(inputvalue, " ", "&quot

)

For charcount = 1 to Len(bannedchars)
onebanned = Mid(bannedchars, charcount, 1)
If InStr(inputvalue, onebanned) > 0 Then
valid = False
Exit For
End If
Next

If Not valid Then
clientsafeStr = ""
MyVar = MsgBox ("Illegal character entered - Please delete such characters from notes&quot

document.Write "<B>Username</B> contains invalid characters.<BR>"
Exit Sub
End If

you can just combine these two scripts fairly easy.

hope that helps out. [bomb]

I may not get it the 1st or 2nd time,
but how sweet that 15th time can be.
admin@onpntwebdesigns.com

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

RE: Validation Help

dsk525

Programmer

onpnt

Programmer

Similar threads

Part and Inventory Search

Sponsor