Sir,
Greetings!!!
I have a problem regarding the ASP running Windows NT 4.0 IIS 3.0, it was
successfully running at PWS for Windows 95/98 but in Windows Nt 4.0 the
problem is "Error 501/505 - Not implemented or not supported Internet
Explorer", what is the problem on that, here in below the sample program
i've done. Thank you.
John
<html>
<head>
<meta http-equiv="Content-Language" content="en-us">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>AGGI Registration result...</title>
</head>
<body topmargin="0" leftmargin="0" link="#000080" vlink="#000080"
alink="#000080">
<table border="0" width="100%" cellspacing="0" cellpadding="0"
height="126">
<tr>
<td width="428" valign="top">
<OBJECT classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000"
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.c
ab#version=5,0,0,0"
WIDTH=428 HEIGHT=126>
<PARAM NAME=movie VALUE="../title.swf"> <PARAM NAME=quality VALUE=high>
<PARAM NAME=bgcolor VALUE=#FFFFFF> <EMBED src="../title.swf" quality=high
bgcolor=#FFFFFF WIDTH=428 HEIGHT=126 TYPE="application/x-shockwave-flash"
PLUGINSPAGE="http://www.macromedia.com/shockwave/download/index.cgi?
P1_Prod_Version=ShockwaveFlash"></EMBED>
</OBJECT>
</td>
<td valign="top" background="../images/backtop.gif" align="right">
<OBJECT classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000"
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.c
ab#version=5,0,0,0"
WIDTH=150 HEIGHT=46>
<PARAM NAME=movie VALUE="topbar.swf"> <PARAM NAME=loop VALUE=false>
<PARAM NAME=quality VALUE=high> <PARAM NAME=bgcolor VALUE=#000000> <EMBED
src="topbar.swf" loop=false quality=high bgcolor=#000000 WIDTH=150
HEIGHT=46 TYPE="application/x-shockwave-flash"
PLUGINSPAGE="http://www.macromedia.com/shockwave/download/index.cgi?
P1_Prod_Version=ShockwaveFlash"></EMBED>
</OBJECT>
<br>
<img border="0" src="../images/topregistration.gif">
</td>
<td width="21" valign="top"><img border="0"
src="../images/rightop.gif"></td>
</tr>
</table>
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="150" valign="top" background="../images/backleft.gif">
<table border="0" width="150" cellspacing="0" cellpadding="0">
<tr>
<td width="100%" height="100%">
<OBJECT classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000"
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.c
ab#version=5,0,0,0"
WIDTH=112 HEIGHT=146>
<PARAM NAME=movie VALUE="sidebar.swf"> <PARAM NAME=loop VALUE=false>
<PARAM NAME=quality VALUE=high> <PARAM NAME=bgcolor VALUE=#FFFFFF> <EMBED
src="sidebar.swf" loop=false quality=high bgcolor=#FFFFFF WIDTH=112
HEIGHT=146 TYPE="application/x-shockwave-flash"
PLUGINSPAGE="http://www.macromedia.com/shockwave/download/index.cgi?
P1_Prod_Version=ShockwaveFlash"></EMBED>
</OBJECT>
<br>
<a href="../gis/gis.asp"><img
border="0" src="../images/gis.gif"></a><br>
<a
href="../directory/directory.asp"><img border="0"
src="../images/directory.gif" width="74" height="55"><br>
<br>
</a> <font color="#FFFFFF" face="Arial"
size="1">Contact
</font><u><font face="Arial" size="1"
color="#FFFF00">Webmaster</font></u></td>
</tr>
</table>
</td>
<td width="100%" valign="top" background="../images/back.gif"
height="100%">
<%
'**************************************************************************
*********
'retrieving data from pervious page
username = request.form("username")
password = request.form("password")
vpassword = request.form("vpassword")
fname = request.form("fname")
lname = request.form("lname")
address = request.form("address")
city = request.form("city")
country = request.form("country")
zipcode = request.form("zipcode")
gender = request.form("gender")
phone = request.form("phone")
fax = request.form("fax")
organization = request.form("organization")
email = request.form("email")
errorflag = false
userflag = false
if username = "" or password = "" or fname = "" or lname = "" or address
= "" or city = "" or country = "none" or zipcode = "" or phone = "" or fax
= "" or email = "" then
errorflag = true
end if
if errorflag = true then
response.write "<p align='left'><font face='Arial' size='4'
color='#800000'><b><B>Sorry, your registration is not
complete.</B></b></font></p>"
response.write "<p align='left'><font face='Times New Roman' size='2'
color='#000080'>We either had trouble understanding those fields, or need
additional information.</font></p>"
response.write "<ul><p align='left'>"
if username = "" then
response.write "<li><font face='Times New Roman' size='2'
color='#000080'>Please choose a <font
color='#800000'><b>Username</b></font> for your account.</font></li>"
end if
if password = "" then
response.write "<li><font face='Times New Roman' size='2'
color='#000080'>Please specify a <font
color='#800000'><b>Password</b></font>.</font></li>"
end if
if fname = "" then
response.write "<li><font face='Times New Roman' size='2'
color='#000080'>Please include a <font color='#800000'><b>First
name</b></font> for your profiles.</font></li>"
end if
if lname = "" then
response.write "<li><font face='Times New Roman' size='2'
color='#000080'>Please include a <font color='#800000'><b>Last
name</b></font> for your profiles.</font></li>"
end if
if address = "" then
response.write "<li><font face='Times New Roman' size='2'
color='#000080'>Please specify your <font
color='#800000'><b>Address</b></font>.</font></li>"
end if
if city = "" then
response.write "<li><font face='Times New Roman' size='2'
color='#000080'>Please specify your <font
color='#800000'><b>City</b></font>.</font></li>"
end if
if country = "" then
response.write "<li><font face='Times New Roman' size='2'
color='#000080'>Please specify your <font
color='#800000'><b>Country</b></font>.</font></li>"
end if
if zipcode = "" then
response.write "<li><font face='Times New Roman' size='2'
color='#000080'>Please specify your <font color='#800000'><b>Zip/Postal
Code</b></font>.</font></li>"
end if
if phone = "" then
response.write "<li><font face='Times New Roman' size='2'
color='#000080'>Please specify your <font color='#800000'><b>Phone
Number</b></font>.</font></li>"
end if
if fax = "" then
response.write "<li><font face='Times New Roman' size='2'
color='#000080'>Please specify your <font color='#800000'><b>Fax
Number</b></font>.</font></li>"
end if
if email = "" then
response.write "<li><font face='Times New Roman' size='2'
color='#000080'>Please include an <font color='#800000'><b>Email
address</b></font>.</font></li>"
end if
response.write "</p></ul>"
elseif password <> vpassword then
response.write "<p align='left'><font face='Arial' size='4'
color='#800000'><b><B>Sorry, your registration is not
complete.</B></b></font></p>"
response.write "<p align='left'><font face='Times New Roman' size='2'
color='#000080'>We either had trouble understanding those fields, or need
additional information.</font></p>"
response.write "<ul>"
response.write "<li><p align='left'><font face='Times New Roman'
size='2' color='#000080'>Your <font color='#800000'><b>Password</b></font>
did not match. Please verify your password.</font></p></li>"
response.write "</ul>"
errorflag = true
end if
if errorflag = false then
'Create Object Instance
'Connection to database
Set oConn = Server.CreateObject("ADODB.Connection")
'Recordset for database
Set oRS = Server.CreateObject("ADODB.Recordset")
'Connection to ODBC
oConn.Open "dsn=AGGI Registration"
'Open table in database
oRS.open "Profiles", oConn, 3, 2
while not oRS.eof
if lcase(username) = lcase(oRS(0)) then
userflag = true
end if
oRS.movenext
wend
if userflag = false then
'Command to Adding of records
oRS.addnew
'Specifying of record to add
oRS.Fields("Username") = username
oRS.Fields("Password") = password
oRS.Fields("First Name") = fname
oRS.Fields("Last Name") = lname
oRS.Fields("Address") = address
oRS.Fields("City") = city
oRS.Fields("Country") = country
oRS.Fields("Zipcode") = zipcode
oRS.Fields("Gender") = gender
oRS.Fields("Phone") = phone
oRS.Fields("Fax") = fax
oRS.Fields("Organization") = organization
oRS.Fields("Email") = email
'Storing of record
oRS.update
response.write "<p align='left'><b><font face='Arial' size='4'
color='#800000'>Thank you.</font></b></p><br>"
response.write "<p align='left'><font color='#000080'>Successfully
registered <b>" & fname & " " & lname & "</b></font></p><"
else
response.write "<p align='left'><font face='Arial' size='4'
color='#800000'><b>Sorry, your registration is not
complete.</b></font></p>"
response.write "<p align='left'><font face='Times New Roman'
size='2' color='#000080'>We either had trouble understanding those fields,
or need additional information.</font></p>"
response.write "<ul>"
response.write "<li><p align='left'><font face='Times New Roman'
size='2' color='#800000'><b>" & username & "</b></font><font size='2'
color='#000080'> is already used, try a different username and be
imaginative.</font></p></li>"
response.write "</ul>"
end if
'close database
oRS.Close
oConn.close
set oRs = nothing
Set oConn = nothing
end if
'**************************************************************************
*********
%>
</td>
<td width="21" valign="top" background="../images/backright.gif"
rowspan="2">
<table border="0" width="21" cellspacing="0" cellpadding="0">
<tr>
<td width="100%"></td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="150" valign="top" background="../images/backleft.gif">
</td>
<td width="100%" valign="top" background="../images/back.gif"
align="center">
<font size="2" color="#000080"><img border="0"
src="../images/line.gif"><a href="../index.html"><br>
Home</a>
| <a href="../news/news.asp">News</a> | <a
href="../project/project.asp">Project
Database</a> | <a href="registration.asp">Registration</a> |
<a href="../report/report.asp">AGGI
Report</a><br>
<a href="../search/search.asp">Search</a> | <a
href="../contact/contact.asp">Contact Us</a> | <a
href="../help/help.asp">Help</a>
| <a href="../links/links.asp">Links</a></font>
<p><font color="#000080" face="Arial" size="1">© 2001
Copyright. All Rights Reserved.<br>
APEC<br>
<br>
Contact </font><u><font color="#000080" face="Arial"
size="1">Webmaster</font></u></p>
</td>
</tr>
</table>
<table border="0" width="100%" height="50" cellspacing="0" cellpadding="0">
<tr>
<td width="150" valign="top"><img border="0"
src="../images/leftbot.gif"></td>
<td valign="top" background="../images/backbot.gif"> </td>
<td width="21" valign="top"><img border="0"
src="../images/rightbot.gif"></td>
</tr>
</table>
</body>
</html>
View Cart
