Expand|Select|Wrap|Line Numbers
- <%@Language="VBSCRIPT" CODEPAGE="1252"%>
- <html>
- <head>
- <title>Registry Network Hospital Detail</title>
- <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
- <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);
- function MM_preloadImages() { //v3.0
- var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
- var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
- if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
- }
- function MM_findObj(n, d) { //v4.01
- var p,i,x; if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
- d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
- if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
- for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
- if(!x && d.getElementById) x=d.getElementById(n); return x;
- }
- function MM_nbGroup(event, grpName) { //v6.0
- var i,img,nbArr,args=MM_nbGroup.arguments;
- if (event == "init" && args.length > 2) {
- if ((img = MM_findObj(args[2])) != null && !img.MM_init) {
- img.MM_init = true; img.MM_up = args[3]; img.MM_dn = img.src;
- if ((nbArr = document[grpName]) == null) nbArr = document[grpName] = new Array();
- nbArr[nbArr.length] = img;
- for (i=4; i < args.length-1; i+=2) if ((img = MM_findObj(args[i])) != null) {
- if (!img.MM_up) img.MM_up = img.src;
- img.src = img.MM_dn = args[i+1];
- nbArr[nbArr.length] = img;
- } }
- } else if (event == "over") {
- document.MM_nbOver = nbArr = new Array();
- for (i=1; i < args.length-1; i+=3) if ((img = MM_findObj(args[i])) != null) {
- if (!img.MM_up) img.MM_up = img.src;
- img.src = (img.MM_dn && args[i+2]) ? args[i+2] : ((args[i+1])? args[i+1] : img.MM_up);
- nbArr[nbArr.length] = img;
- }
- } else if (event == "out" ) {
- for (i=0; i < document.MM_nbOver.length; i++) {
- img = document.MM_nbOver[i]; img.src = (img.MM_dn) ? img.MM_dn : img.MM_up; }
- } else if (event == "down") {
- nbArr = document[grpName];
- if (nbArr)
- for (i=0; i < nbArr.length; i++) { img=nbArr[i]; img.src = img.MM_up; img.MM_dn = 0; }
- document[grpName] = nbArr = new Array();
- for (i=2; i < args.length-1; i+=2) if ((img = MM_findObj(args[i])) != null) {
- if (!img.MM_up) img.MM_up = img.src;
- img.src = img.MM_dn = (args[i+1])? args[i+1] : img.MM_up;
- nbArr[nbArr.length] = img;
- } }
- }
- //-->
- </script>
- <style type="text/css">
- <!--
- .style1 {font-size: 11px}
- -->
- </style>
- </head>
- <body onLoad="MM_preloadImages('images/bthomepr.gif','images/bttrajpr.gif','images/bttrajro.gif','images/btregjpr.gif','images/btregjro.gif','btregpr.gif','images/btdownpr.gif','images/btdownro.gif','images/btrelapr.gif','images/btrelaro.gif','images/btaboupr.gif','images/btabouro.gif','btregipr.jpg','images/bthomero.gif','images/btregipr.gif','images/btregiro.gif')">
- <div id="Logo" style="position: absolute; left: 8px; top: 529px; width: 377px; height: 44px; z-index: 1; vertical-align: middle"></div>
- <div id="TagLine" style="position: absolute; left: 15px; top: 79px; width: 739px; height: 21px; z-index: 3; vertical-align: middle"><font size="-1" face="Arial, Helvetica, sans-serif"><u><em><strong>Service.
- It's not just a word with us</strong></em></u>.</font></div>
- <div id="Layer4" style="position: absolute; left: 14px; top: 81px; width: 776px; height: 10px; z-index: 4; vertical-align: middle">
- <hr>
- </div>
- <div id="Layer6" style="position: absolute; left: 21px; top: 143px; width: 777px; height: 11px; z-index: 2; vertical-align: middle"><img src="images/lntrajob.gif" width="778" height="8"></div>
- <div id="Layer15" style="position: absolute; left: 27px; top: 548px; width: 299px; height: 12px; z-index: 1; vertical-align: middle">
- <div align="center" class="style1"><font face="Arial, Helvetica, sans-serif">©
- 2008 Registry Network Incorporated, All Rights Reserved</font></div>
- </div>
- <div id="Layer16" style="position:absolute; left:512px; top:2px; width:260px; height:78px; z-index:9"><img src="images/imbluehill.jpg" width="281" height="82"></div>
- <div id="Layer7" style="position:absolute; left:19px; top:106px; width:780px; height:46px; z-index:0">
- <table width="785" height="52" border="0" cellpadding="0" cellspacing="0">
- <tr>
- <td width="785"><a href="index.htm" target="_top" onClick="MM_nbGroup('down','group1','Home','images/bthomepr.gif',1)" onMouseOver="MM_nbGroup('over','Home','images/bthomero.gif','images/bthomepr.gif',1)" onMouseOut="MM_nbGroup('out')"><img src="images/bthomeno.gif" alt="" name="Home" width="111" height="31" border="0" onload=""></a><a href="travel.htm" target="_top" onClick="MM_nbGroup('down','group1','Travel','images/bttrajpr.gif',1)" onMouseOver="MM_nbGroup('over','Travel','images/bttrajro.gif','images/bttrajpr.gif',1)" onMouseOut="MM_nbGroup('out')"><img src="images/bttrajno.gif" alt="" name="Travel" width="111" height="31" border="0" onload=""></a><a href="registry.htm" target="_top" onClick="MM_nbGroup('down','group1','Registry','images/btregjpr.gif',1)" onMouseOver="MM_nbGroup('over','Registry','images/btregjro.gif','images/btregjpr.gif',1)" onMouseOut="MM_nbGroup('out')"><img src="images/btregjno.gif" alt="" name="Registry" width="111" height="31" border="0" onload=""></a><a href="loginpage.asp" target="_top" onClick="MM_nbGroup('down','group1','OnLineApplication','images/btregipr.gif',1)" onMouseOver="MM_nbGroup('over','OnLineApplication','images/btregiro.gif','btregpr.gif',1)" onMouseOut="MM_nbGroup('out')"><img src="images/btregino.gif" alt="" name="OnLineApplication" width="111" height="31" border="0" onload=""></a><a href="downcheck.asp" target="_top" onClick="MM_nbGroup('down','group1','DownloadForms','images/btdownpr.gif',1)" onMouseOver="MM_nbGroup('over','DownloadForms','images/btdownro.gif','images/btdownpr.gif',1)" onMouseOut="MM_nbGroup('out')"><img src="images/btdownno.gif" alt="" name="DownloadForms" border="0" onLoad=""></a><a href="related.htm" target="_top" onClick="MM_nbGroup('down','group1','RelatedWebSites','images/btrelapr.gif',1)" onMouseOver="MM_nbGroup('over','RelatedWebSites','images/btrelaro.gif','images/btrelapr.gif',1)" onMouseOut="MM_nbGroup('out')"><img src="images/btrelano.gif" alt="" name="RelatedWebSites" width="111" height="31" border="0" onLoad=""></a><a href="aboutus.htm" target="_top" onClick="MM_nbGroup('down','group1','AboutUs','images/btaboupr.gif',1)" onMouseOver="MM_nbGroup('over','AboutUs','images/btabouro.gif','images/btaboupr.gif',1)" onMouseOut="MM_nbGroup('out')"><img src="images/btabouno.gif" alt="" name="AboutUs" width="111" height="31" border="0" onLoad=""></a></td>
- </tr>
- <tr>
- <td height="21"> </td>
- </tr>
- </table>
- </div>
- <div id="Layer7" style="position:absolute; left:16px; top:212px; width:324px; height:20px; z-index:11; background-color: #5B96FF; layer-background-color: #5B96FF; border: 1px none #000000;">
- <div align="center">
- <p style="margin-bottom: 0"><font color="#FFFFFF" face="Trebuchet MS">General Information</font></p>
- </div>
- </div>
- <div id="Layer7" style="position:absolute; left:180px; top:400px; width:160px; height:14px; z-index:11; background-color: #5B96FF; layer-background-color: #5B96FF; border: 1px none #000000;">
- <div align="center">
- <p style="margin-bottom: 0"><font color="#FFFFFF" size="-2" face="Trebuchet MS">Click here for Hospital
- Pictures</font></p>
- </div>
- </div>
- <div id="Layer7" style="position:absolute; left:16px; top:400px; width:160px; height:14px; z-index:11; background-color: #5B96FF; layer-background-color: #5B96FF; border: 1px none #000000;">
- <div align="center">
- <p style="margin-bottom: 0"><font color="#FFFFFF" size="-2" face="Trebuchet MS">Click here for Map</font></p>
- </div>
- </div>
- <div id="Layer7" style="position:absolute; left:16px; top:500px; width:160px; height:14px; z-index:11; background-color: #5B96FF; layer-background-color: #5B96FF; border: 1px none #000000;">
- <div align="center">
- <p style="margin-bottom: 0"><font color="#FFFFFF" size="-2" face="Trebuchet MS">Click her for Housing
- Info</font></p>
- </div>
- </div>
- <div id="Layer7" style="position:absolute; left:180px; top:500px; width:160px; height:14px; z-index:11; background-color: #5B96FF; layer-background-color: #5B96FF; border: 1px none #000000;">
- <div align="center">
- <p style="margin-bottom: 0"><font color="#FFFFFF" size="-2" face="Trebuchet MS">Click here for Local Info</font></p>
- </div>
- </div>
- <%
- Dim sHospitalID
- Dim cnnHospitalDatabase
- Dim cmdSelect
- Dim rsHospitals
- Dim sFilePath
- Set cnHospitalDatabase=Server.CreateObject("ADODB.Connection")
- Set cmdSelect=Server.CreateObject("ADODB.Command")
- Set rsHospitals=Server.CreateObject("ADODB.Recordset")
- sFilePath=Server.MapPath(Session("Current Directory") & "/" ) & "\"
- cnHospitalDatabase.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &sFilePath & "\data\TravelJobs.mdb;Persist Security Info=False"
- Set cmdSelect.ActiveConnection=cnHospitalDatabase
- sHospitalID=Request.QueryString("HospitalID")
- cmdSelect.CommandText="Select * From Hospitals Where HospitalID='" & sHospitalID & "'"
- rsHospitals.Open cmdSelect
- Response.Write (" <div id=""Layer7"" style=""position:absolute; left:16px; top:160px; width:324px; height:19px; z-index:11;"">")
- Response.Write ("<div align=""center""><font size=""+2"">")
- Response.Write(rsHospitals("HospitalName"))
- Response.Write("</font></div>")
- Response.Write("</div>")
- Response.Write("<div id=""Layer7"" style=""position:absolute; left:16px; top:236px; width:324px; height:80px; z-index:11;"">")
- Response.Write("<div align=""center"">")
- Response.Write("<p align=""left""><font size=""-1"">")
- Response.Write(rsHospitals("Address"))
- Response.Write(rsHospitals("Address2"))
- Response.Write("<br>")
- Response.Write(rsHospitals("City") &", " & rsHospitals("State") & " " & rsHospitals("ZipCode"))
- Response.Write("<br>")
- Response.Write("<br>")
- Response.Write("</font><font size=""-1"">")
- Response.Write(rsHospitals("Description"))
- Response.Write(" </font></p>")
- Response.Write(" </div>")
- Response.Write("</div>")
- Response.Write("<div id=""Layer16"" style=""position:absolute; left:16px; top:416px; width:132px; height:80px; z-index:0""><a href=""http://www.mapquest.com/maps/map.adp?city=
- " & Server.UrlEncode(rsHospitals("City")) & "&state=
- " & Server.UrlEncode(rsHospitals("State")) & "&address=
- <" & Server.UrlEncode(rsHospitals("Address")) & "&zip=
- " & Server.UrlEncode(rsHospitals ("ZipCode")) & "
- " & "&zoom=5"" target=""_blank""><img src=""images/imgenmap.jpg"" width=""160"" height=""81"" border=""0""></a></div>")
- Response.Write("<div id=""Layer16"" style=""position:absolute; left:180px; top:416px; width:324px; height:84px; z-index:0""><a href=""trhospic.asp?HospitalID=" & rsHospitals("HospitalID") & """ target=""_blank""><img src=""images/imhospit.jpg"" width=""160"" height=""81"" border=""0""></div>")
- Response.Write("<div id=""Layer16"" style=""position:absolute; left:180px; top:516px; width:160px; height:80px; z-index:0""><a href=""" & rsHospitals("LocalLink") & """ target=""_blank""><img src=""images/imfamily.jpg"" width=""160"" height=""81"" border=""0""></a></div>")
- Response.Write("<div id=""Layer16"" style=""position:absolute; left:16px; top:516px; width:132px; height:80px; z-index:0""><a href=""" & rsHospitals("HousingInfo") & """ target=""_blank""><img src=""images/imhousin.jpg"" width=""160"" height=""81"" border=""0""></a></div>")
- rsHospitals.close
- cnHospitalDatabase.Close
- %>
- <%
- Dim sHospitalID2
- Dim cnnHospitalDatabase2
- Dim cmdSelect2
- Dim rsJobs
- Dim sFilePath2
- Dim RowNum
- RowNum=1
- Set cnHospitalDatabase2=Server.CreateObject("ADODB.Connection")
- Set cmdSelect2=Server.CreateObject("ADODB.Command")
- Set rsJobs=Server.CreateObject("ADODB.Recordset")
- sFilePath2=Server.MapPath(Session("Current Directory") & "/" ) & "\"
- cnHospitalDatabase2.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &sFilePath2 & "\data\TravelJobs.mdb;Persist Security Info=False"
- Set cmdSelect2.ActiveConnection=cnHospitalDatabase2
- sHospitalID2=Request.QueryString("HospitalID")
- cmdSelect2.CommandText="Select * From TravelJobs Where HospitalID='" & sHospitalID2 & "'"
- rsJobs.Open cmdSelect2
- Response.Write ("<div id=""Layer9"" style=""position:absolute; left:358px; top:196px; width:330px; height:60px; z-index:13"">")
- Response.Write (" <table width=""441"" height=""61"" border=""1"">")
- Response.Write (" <tr bgcolor=""#FFFF80"">")
- Response.Write (" <th width=""431"" height=""34"" bgcolor=""#FFFF80""><font color=""#000000"">Available Jobs ")
- Response.Write ("</font>")
- if not (rsJobs.eof or rsJobs.bof) then
- Response.Write("</font><font size=""-1"">")
- Response.Write (" (As Of ")
- Response.Write(rsJobs("Entered"))
- Response.Write (")")
- Response.Write ("</font>")
- end if
- Response.Write ("</th>")
- Response.Write (" </tr>")
- Do While Not(rsJobs.Eof)
- if Int(RowNum/2)=(RowNum/2) Then
- Response.Write(" <tr bgcolor=""#FFFF80""> ")
- end if
- Response.Write("<td><font size=""-1""> ")
- Response.Write(rsJobs("JobDescription"))
- Response.Write("</font><font size=""-1""> </font></td>")
- Response.Write(" </tr>")
- RowNum=RowNum+1
- rsJobs.MoveNext
- Loop
- rsJobs.close
- cnHospitalDatabase2.Close
- %>
- </table>
- </div>
- <div id="CompanyName" style="position: absolute; left: 180px; top: 12px; width: 156px; height: 32px; z-index: 1; vertical-align: middle"><img src="images/imcomnam.jpg" width="268" height="37"></div>
- <p style="position: absolute; left: 22px; top: 10px; width: 156px; height: 44px; z-index: 1; vertical-align: middle; margin-top: 0;"><img src="images/imlogo.jpg" width="163" height="48"></p>
- </body>
- </html>
How can I fix this problem please help........???!!!??!?!?!?!?!?!