<% Option Explicit %>
<%
'
' declare the variables to use
'
DIM Firsttime, Emptyfield, errtext
Dim Query, Connect, man_rs, Place
Dim Command, maxvar, i ,n, testvar,maxn,newvar
Dim workvar(99), c
Dim skipvar(99)
Dim errarray(99)
Dim JMail
'
'set the variables required in the program
'
maxvar = 10
'
errarray(6) = "Company name is required"
errarray(1) = "Name is required"
errarray(2) = "e-mail is required"
errarray(3) = "Major is required"
errarray(4) = "Industry is required"
errarray(5) = "Telephone Number is required"
errarray(7) = "Description is required"
errarray(8) = "Country is required"
errarray(9) = ""
errarray(10)= "URL is required"
for i = 1 to maxvar
skipvar(i) = 0
workvar(i) = ""
next
skipvar(5) = 1
skipvar(9) = 1
Firsttime = 1 : Emptyfield = 0
for i = 1 to maxvar
testvar = Request("work"&i)
if testvar = "" then
if skipvar(i) = 0 then
Emptyfield = i
if errtext = "" then errtext = errarray(i)
end if
else
Firsttime = 0
end if
workvar(i) = testvar
next
%>
Go Local Northwest Registration - V1.0
- Registered
- Repost( )
- New Entry
<%
if Firsttime = 1 or Emptyfield <> 0 Then
%>
<% Else %> <%
for i = 1 to maxvar
newvar = ""
testvar = Request("work" & i)
maxn = len(testvar)
for n = 1 to maxn
c=mid(testvar,n,1)
if c = "," then c = ""
if c = "'" then c = ""
if c = "+" then c = ""
if c = "&" then c = " "
if c = "%" then c = ""
newvar = newvar & c
next
workvar(i) = newvar
next
set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "buscomm"
Set Command = Server.CreateObject("ADODB.Command")
Command.ActiveConnection = "buscomm"
query = "INSERT INTO master ("
for i = 1 to (maxvar-1)
query = query & "dbdata" & i & ","
next
query = query & "dbdata" & i & " ) VALUES ("
for i = 1 to (maxvar - 1)
query = query & "'" & workvar(i) & "',"
next
query = query & "'" & workvar(i) &"' ) "
Command.CommandText = query
Command.Prepared = True
Command.Execute
query = "delete from intable"
Command.CommandText = query
Command.CommandType = 1
Command.Execute
Command.COmmandText = "INSERT INTO INTABLE (CATEGORY,TOWN, KEYWORD, RECPOINT) SELECT CAT1, COUNTRY, CAT2,NEWID FROM MASTFILE WHERE CAT2 <> ''"
Command.Execute
Connect.Close
Set Connect = Nothing
If Err.Number = 0 Then
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = "mail.e-manumit.com"
JMail.Sender = workvar(2)
JMail.Subject = "Business Community"
JMail.AddRecipient request.form("recipient")
JMail.Priority = 3
JMail.body = "Your Online Request Form Has Been Completed With The Following Info:" & vbcrlf
JMail.appendtext "--------------------------------------------------------" & vbcrlf
JMail.appendtext "Contact Name: " & workvar(1) & vbcrlf
JMail.appendtext "Company Name: " & workvar(6) & vbcrlf
JMail.appendtext "Email Address: " & workvar(2) & vbcrlf
JMail.appendtext "Address: " & workvar(3) & vbcrlf
JMail.appendtext "Telephone: " & workvar(5) & vbcrlf
JMail.appendtext "Type of industry: " & workvar(4) & vbcrlf
JMail.appendtext "Desc of services: " & workvar(7) & vbcrlf
JMail.appendtext "Town: " & workvar(8) & vbcrlf
JMail.appendtext "Other: " & workvar(9) & vbcrlf
JMail.appendtext "Website Address: " & workvar(10) & vbcrlf
JMail.execute
' response.redirect "http://www.manumit-computers.com"
%>
Your registration has been accepted.
Register Again
Back to Home
Search the business links
Search the leisure links
<% Else %>
There
was an error placing your ad.
Error
#<%=Err.Number%>: <%=Err.Description%>
<% End If %> <% End If %>