Trying to code a dealer locator from VB to Java
Hello everyone. I am a college student at a community college and just took my first Java class. A local business asked me for help with their website. They have a dealer locator aspect of their website that was written for them in VB but now no longer works and never worked for browsers other than IE. They want this page re-written into Java or JavaScript and working properly. I have all the website files (CSS and spread sheets for the zip codes and dealer info), but I am afraid I am in way over my head. I tried to convert all to JavaScript with the intention to correct inconsistencies...but that did not work. Below I will paste the VB and below that I will paste my attempt. If anyone can help, I would greatly appreciate it.
Code Java:
<%
dim ZipCode
dim GetDealersByZipCode
ZipCode = Request.QueryString("ZipCode")
if ZipCode <> "" then
GetDealersByZipCode = true
else
GetDealersByZipCode = false
end if
if GetDealersByZipCode then
dim DealerIDs
dim sql
'Get the list of dealer that link to the zip code enterd
Set connzips = Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.RecordSet")
connzips.open Application("ProLineZIPSUPDConnectionString")
sql = "select top 50 * from zipsupd where [ZIP_CODE] = '" & replace(ZipCode,"'","''") & "'"
rs.Open sql, connzips
dim counter
counter = 0
DealerIDs = ""
do while not rs.eof
if counter = 0 then
DealerIds = DealerIds & rs(1).value
else
DealerIds = DealerIds & "," & rs(1).value
end if
rs.movenext
counter = counter + 1
loop
rs.close
connzips.close
set connzips = nothing
end if
%>
<script language="javascript">
function Submit_ZipCodeFinder(){
location.href = "_Dealer_Locator.asp?ZipCode=" + document.getElementById("txtZipCode").value
}
</script>
<link href="Pro-Line2011_New.css" rel="stylesheet" type="text/css">
<body class="Black_10">
<Table style="font-family:arial;font-size:12px;">
<tr>
<td colspan=2>
<%
if ZipCode then
response.write("<br><span style='color:green;'>Results are listed below.</span>")
end if
%>
</td>
</tr>
<tr>
<td>Enter Zip Code Here:</td>
<td>
<input type=text size=5 maxlength=5 name=txtZipCode id=txtZipCode/>
</td>
</tr>
<tr>
<td colspan=2 align="right">
<input type="Button" onclick="Submit_ZipCodeFinder();" value="Locate Dealer" name="Find Dealer" id="Find Dealer"/>
</td>
<% if GetDealersByZipCode = false then %>
<%
else 'Show the zip code results
if DealerIDs <> "" then 'There are results
%>
</tr>
</table>
<hr>
<table style="font-family:arial;font-size:12px;">
<tr>
<th align="left" style="text-decoration:underline;">Results</th>
</tr>
<%
Set conndl = Server.CreateObject("ADODB.Connection")
conndl.open Application("prolinedlConnectionString")
sql = "select * from [Sheet1$] where account in (" & DealerIds & ")"
rs.open sql, conndl
counter = 0
do while not rs.eof
if counter mod 2 = 1 then
bgcolor = "#ffffff"
else
bgcolor = "#efefef"
end if
strMap = "<a href='http://www.mapquest.com/maps/map.adp?formtype=address&address=" & _
rs("Address_1").value & "&city=" & rs("City").value & "&state=" & rs("State").value & _
"&zipcode=" & rs("Zip").value & "&country=US' style='font-size:11px;' target=_blank>" & _
"(map)</a>"
strDisplay = "<b>" & rs("Name").value & "</b> " & strMap & _
"<br/><div style='padding-left:10px;'>" & _
rs("Address_1").value & "<br/>"
if rs("Address_2").value <> "" then
strDisplay = strDisplay & rs("Address_2").value & "<br/>"
end if
strDisplay = strDisplay & rs("City").value & ", " & rs("state").value & " " & rs("Zip").value & "<br/>"
if rs("Phone").value <> "" then
strDisplay = strDisplay & "Phone: " & rs("Phone").value & "<br/>"
end if
if rs("Fax").value <> "" then
strDisplay = strDisplay & "Fax: " & rs("fax").value & "<br/>"
end if
if rs("Web").value <> "" then
strDisplay = strDisplay & "<a target=_blank href='http://" & rs("Web").value & "'>" & rs("Web").value & "</a>"
end if
strDisplay = strDisplay & "</div>"
%>
<tr>
<td style='padding: 4 4 4 4;background-color:<%=bgcolor%>;'>
<%=strDisplay%>
</td>
</tr>
<%
counter = counter + 1
rs.movenext
loop
conndl.close
set conndl = nothing
else
%>
<hr>
<span style="color:Red;font-family:arial;font-size:12px;">No Results</span>
<%
end if
end if
%>
</table>
<%
'Deallocate all
set rs = nothing
%>
My corrections
Code Java:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Pro-Line Boats - Dealer Locator</title>
<style type="text/css">
<!--
body {
background-color: #334A67;
background-image: url(Images/Background_Gradient.jpg);
}
-->
</style>
<link href="Pro-Line2011_New.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
a:link {
color: #334A67;
}
a:visited {
color: #CCCCCC;
}
-->
</style>
<script src="AC_RunActiveContent.js" language="javascript"></script>
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_reloadPage(init) { //reloads the window if Nav4 resized
if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);
//-->
</script>
</head>
<body>
<!-- DO NOT MOVE! The following AllWebMenus linking code section must always be placed right AFTER the BODY tag-->
<!-- ******** BEGIN ALLWEBMENUS CODE FOR menu ******** -->
<script type="text/javascript">var MenuLinkedBy="AllWebMenus [4]",awmMenuName="menu",awmBN="834";awmAltUrl="";</script><script charset="UTF-8" src="menu.js" type="text/javascript"></script><script type="text/javascript">awmBuildMenu();</script>
<!-- ******** END ALLWEBMENUS CODE FOR menu ******** -->
<table width="1010" align="center" cellpadding="0" cellspacing="0">
<tr valign="middle">
<td colspan="2"> <div align="right">
<table width="1023" align="center" cellpadding="5" cellspacing="5">
<tr>
<td width="404">
<div align="left"><img src="Images/2011Pro-LineBoats_Logo7.png" width="375" height="55"></div>
</td>
<td width="536" align="left"><table width="443" align="left" cellpadding="5" cellspacing="5">
<tr>
<td width="391" valign="top">
<a id="awmAnchormenu" name="awmAnchormenu"></a></td>
</tr>
</table></td>
</tr>
</table>
</div></td>
<td width="84"> </td>
</tr>
<tr>
<td width="4"> </td>
<td width="1012"><table width="1000" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td><img src="Images/Main/DealerLocator.jpg" alt="" width="1010" height="476"></td>
</tr>
<tr align="center">
<td bgcolor="#FFFFFF"><div align="left">
<table width="1005" cellspacing="0" cellpadding="0">
<tr>
<td>
</tr>
<tr>
<td><table width="961" cellspacing="5" cellpadding="5">
<tr>
<td width="939"><span class="HeadingMedium">If you are in the US or Puerto Rico, all you need to do is enter your zip code
and we’ll let you know who your nearest dealer is. <br>
<br>And, as always, if you experience any problems finding your Pro-Line dealer please do not hesitate to call us at (800) 344-1281.
<br><br>PS. Your new boat is waiting for you. Hurry up and find a dealer near you!</span></td>
</tr>
</table> </td>
</tr>
<tr>
<td>
<table width="895" align="center" cellpadding="2" cellspacing="2">
<tr valign="top">
<td colspan="2" class="Black_10">
<script language="javascript" type="text/JavaScript">
Object ZipCode = null;
Object GetDealersByZipCode = null;
ZipCode = Request.QueryString("ZipCode");
if ( ! ZipCode.equals(""))
{
GetDealersByZipCode = true;
}
else
{
GetDealersByZipCode = false;
}
if (GetDealersByZipCode)
{
Object DealerIDs = null;
Object sql = null;
//Get the list of dealer that link to the zip code enterd
//VB TO JAVA CONVERTER WARNING: VB to Java Converter converts from VB(.NET), not VB6.
Set connzips = Server.CreateObject("ADODB.Connection");
set rs = Server.CreateObject("ADODB.RecordSet");
connzips.open Application("ProLineZIPSUPDConnectionString");
sql = "select top 50 * from zipsupd where [ZIP_CODE] = '" + ZipCode.toString().replace("'", "''") + "'";
rs.Open sql, connzips;
Object counter = null;
counter = 0;
DealerIDs = "";
while (! rs.eof)
{
if (counter == 0)
{
DealerIDs = DealerIDs + rs(1).value;
}
else
{
DealerIDs = DealerIDs.toString() + "," + rs(1).value;
}
rs.movenext;
counter = counter + 1;
}
rs.close;
connzips.close;
set connzips = null;
}
function Submit_ZipCodeFinder(){
location.href = "DealerLocator.asp?ZipCode=" + document.getElementById("txtZipCode").value
}
</script>
<link href="Pro-Line2009.css" rel="stylesheet" type="text/css">
<body class="DarkGray12">
<Table style="font-family:arial;font-size:12px;">
<tr>
<td colspan=2>
<script language="javascript" type="text/JavaScript">
if (ZipCode)
{
response.write("<br><span style='color:green;'>Results are listed below.</span>");
}
</script>
</td>
</tr>
<tr>
<td>Enter Zip Code Here:</td>
<td>
<input type=text size=5 maxlength=5 name=txtZipCode id=txtZipCode/>
</td>
</tr>
<tr>
<td colspan=2 align="right">
<input type="Button" onclick="Submit_ZipCodeFinder();" value="Locate Dealer"/>
</td>
<script language="javascript" type="text/JavaScript">
if GetDealersByZipCode == false then
else //Show the zip code results
{
if ( ! DealerIDs.equals("")) //There are results
}
</script>
</tr>
</table>
<hr>
<table style="font-family:arial;font-size:12px;">
<tr>
<th align="left" style="text-decoration:underline;">Results</th>
</tr>
<script language="javascript" type="text/JavaScript">
//VB TO JAVA CONVERTER WARNING: VB to Java Converter converts from VB(.NET), not VB6.
Set conndl = Server.CreateObject("ADODB.Connection");
conndl.open Application("prolinedlConnectionString");
sql = "select * from [Sheet1$] where account in (" + DealerIds + ")";
rs.open sql, conndl;
counter = 0;
while (! rs.eof)
{
if (counter % 2 == 1)
{
bgcolor = "#ffffff";
}
else
{
bgcolor = "#efefef";
}
strMap = "<a href='http://www.mapquest.com/maps/map.adp?formtype=address&address=" + rs("Address_1").value + "&city=" + rs("City").value + "&state=" + rs("State").value + "&zipcode=" + rs("Zip").value + "&country=US' style='font-size:11px;' target=_blank>" + "(map)</a>";
strDisplay = "<b>" + rs("Name").value + "</b> " + strMap + "<br/><div style='padding-left:10px;'>" + rs("Address_1").value + "<br/>";
if ( ! rs("Address_2").value.equals(""))
{
strDisplay = strDisplay + rs("Address_2").value + "<br/>";
}
strDisplay = strDisplay + rs("City").value + ", " + rs("state").value + " " + rs("Zip").value + "<br/>";
if ( ! rs("Phone").value.equals(""))
{
strDisplay = strDisplay + "Phone: " + rs("Phone").value + "<br/>";
}
if ( ! rs("Fax").value.equals(""))
{
strDisplay = strDisplay + "Fax: " + rs("fax").value + "<br/>";
}
if ( ! rs("Web").value.equals(""))
{
strDisplay = strDisplay + "<a target=_blank href='http://" + rs("Web").value + "'>" + rs("Web").value + "</a>";
}
strDisplay = strDisplay + "</div>";
</script>
<tr>
<td style='padding: 4 4 4 4;background-color:=bgcolor;'>
</td>
</tr>
<script language="javascript" type="text/JavaScript">
counter = counter + 1;
rs.movenext;
}
conndl.close;
set conndl = null;
}
else
{
<hr>
<span style="color:Red;font-family:arial;font-size:12px;">No Results</span>
}
</script>
</table>
<script language="javascript" type="text/JavaScript">
//Deallocate all
set rs = null;
</script>
</td>
</tr>
</table></td>
</tr>
</table>
</div></td>
</tr>
<tr align="center">
<td bgcolor="#FFFFFF"> </td>
</tr>
<tr>
<td bgcolor="#FFFFFF"><div align="center"></div></td>
</tr>
</table></td>
<td> </td>
</tr>
<tr>
<td> </td>
<td class="Specs"><div align="left"><span class="White_9">Copyright © 2010 Pro-Line Boats. All Rights Reserved.</span><br>
</div></td>
<td> </td>
</tr>
</table>
</body>
</html>
Re: Trying to code a dealer locator from VB to Java
java != javascript :) Not sure exactly what you have and what you need, but it seems the original code is server side, so to port it you will probably need some sort of server side alternative (javascript is client side). What to choose is dependent upon the capabilities of the server (php, java, perl, etc...)
Re: Trying to code a dealer locator from VB to Java
Well, that certainly helps point me in the right direction. How do I find out the capabilities of the server?
Re: Trying to code a dealer locator from VB to Java
Contact the service provider and ask.
