Vbscript functions (help!!)

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

Vbscript functions (help!!)

Logged in as: Guest

arrSession:exec spGetSession 2,3,65

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> ASP >> Vbscript functions (help!!)
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

Vbscript functions (help!!) - 5/31/2001 12:07:59 AM

rahul27

Posts: 19
Score: 0
Joined: 5/23/2001
From: India
Status: offline

Hi guys have a bit of a problem. I'm currently working on a website using asp to generate page on the fly however the functions whichI am using in vbscript will not work. The error message that is being returned is that the server was expecting the 'End' statement however the 'End Function' statement is already there. Predictably enough when I remove the word function the error is that the word function was expected, any Ideas? thanx

Post #: 1

Re: Vbscript functions (help!!) - 5/31/2001 12:10:03 AM

daydreamer

Posts: 19
Score: 0
Joined: 5/23/2001
From: USA
Status: offline

Hi here is the source code the reason that I did it this way is that it was the easiest way I could think of to populate the text field if there was an error in the registration if there is a more elegeant way of doing this (and one that requires less typing!!) I would be grateful.

<%Language vbscript%>
<%
dim usr, name1, name2, add1, add2, post, email, Pass1, pass2,init
dim alerter
set usr =request("usr")
set name1 = request("name1")
set name2 = request("name2")
set add1 = request("addr1")
set add2 = request("addr2")
set post = request("post")
set email = request("email")
set pass1 = request("pass1")
set pass2 = request("pass2")
set init= request("initials")

dim con, rst, sql
set sql = "Select * From PublicMembers WHERE usr="&usr
set con = Server.CreateObject("ADODB.Connection")
call con.open("COED_DSN","BoabFett","noddy1")
set rst = Server.CreateObject("ADODB.Recordset")

If (eChk(email)<>1)Then
set alerter = emal
alerter(alerter)
else if((pass1<>pass2)Or(pass1="")) Then
set alerter = pas
alerter(alerter)
else
call rst.open(sql, con,adOpenStatic, adLockOptomistic, adCmdText)
dim chqkr
set chqkr=rst("name1")

If(chqkr=null)Then
Call rst.AddNew()
rst("usr")=usr
rst("nam1")=name1
rst("nam2")=name2
rst("init")=init
rst("addr1")=add1
rst("addr2")=add2
rst("post")=post
rst("email")=email
rst("pass")=pass1
Call rst.Update()
Call rst.MoveLast()
else
set alerter = userr
alerter(alerter)

Function Renter(usr, name1, name2, add1, add2, post, email, Pass1, pass2)
response.write("<html>")
response.write("<head>")
response.write("<title>Untitled Document</title>")
response.write(" <meta http-equiv="" &"Content-Type"" &" content="" &"text/html; charset=iso-8859-1"" &">")
response.write("</head>")

response.write(" <body bgcolor="" &"#000099"" &" text="" &"#00CCFF"" & "background="" &"../1163k5Edinburgh.gif"" &">")
response.write(" <div align=" center ">")
response.write(" <p><font size=" 5 " ><b><u><i><font size=" 7 " >C</font></i>ity of <i> <font size=" 7 ">E</font></i>dinburgh ")
response.write(" <i><font size=" & 7 ">M</font></i>essage <font size=" 7 "> <i>B</i></font>oard <i><font size= " 7 ">R</font></i>egistration ")
response.write(" </u></b></font></p>")
response.write(" <form name=" form1 " method=" post " action= " regcheck.asp " >")
response.write(" <table width="" &"50%"" &" border="" &"0"" &">")
response.write(" <tr>")
response.write(" <td width='32%'>User Name</td>")
response.write(" <td width='68%'>")
response.write(" <input type="" &"text"" &" name="" &"usr"" &" value=" & usr &">")
response.write(" </td>")
response.write(" </tr>")
response.write(" <tr>")
response.write(" <td width="" &"32%"" &">First Name</td>")
response.write(" <td width="" &"68%"" &"> ")
response.write(" <input type="" &"text"" &" name="" &"name1"" &" value="& name1 &">")
response.write(" </td>")
response.write(" </tr>")
response.write(" <tr>")
response.write(" <td width="" &"32%"" &">Initials</td>")
response.write(" <td width="" &"68%"" &"> ")
response.write(" <input type="" &"text"" &" name="" &"inits"" &" value=>")
response.write(" </td>")
response.write(" </tr>")
response.write(" <tr>")
response.write(" <td width="" &"32%"" &">Second Name</td>")
response.write(" <td width="" &"68%"" &"> ")
response.write(" <input type="" &"text"" &" name="" &"name2"" &" value=" &name2&">")
response.write(" </td>")
response.write(" </tr>")
response.write(" <tr>")
response.write(" <td width="" &"32%"" &">Address 1</td>")
response.write(" <td width="" &"68%"" &"> ")
response.write(" <input type="" &"text"" &" name="" &"addr1"" &" value="&add1&">")
response.write(" </td>")
response.write(" </tr>")
response.write(" <tr>")
response.write(" <td width="" &"32%"" &">Address 2</td>")

(in reply to rahul27)