LinkBack URL
About LinkBacks
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.
<% 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
<!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>
Reply With Quote
Related threads:
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...)