OK, I got your initial line back in there.....here's the code for the landmarkinfo.asp:
Code:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="Connections/Landmarks.asp" -->
<%
Dim RSLandmarks__MMColParam
RSLandmarks__MMColParam = "1"
If (Request.QueryString("LandName") <> "") Then
RSLandmarks__MMColParam = Request.QueryString("LandName")
End If
%>
<%
Dim RSLandmarks
Dim RSLandmarks_cmd
Dim RSLandmarks_numRows
Set RSLandmarks_cmd = Server.CreateObject ("ADODB.Command")
RSLandmarks_cmd.ActiveConnection = MM_Landmarks_STRING
RSLandmarks_cmd.CommandText = "SELECT * FROM dbo.tblLandmark WHERE LandName = ?"
RSLandmarks_cmd.Prepared = true
RSLandmarks_cmd.Parameters.Append RSLandmarks_cmd.CreateParameter("param1", 200, 1, 100, RSLandmarks__MMColParam) ' adVarChar
Set RSLandmarks = RSLandmarks_cmd.Execute
RSLandmarks_numRows = 0
%>
<%
Dim RSLandContacts__MMColParam
RSLandContacts__MMColParam = "1"
If (Request.QueryString("IDX") <> "") Then
RSLandContacts__MMColParam = Request.QueryString("IDX")
End If
%>
<%
Dim RSLandContacts
Dim RSLandContacts_cmd
Dim RSLandContacts_numRows
Set RSLandContacts_cmd = Server.CreateObject ("ADODB.Command")
RSLandContacts_cmd.ActiveConnection = MM_Landmarks_STRING
RSLandContacts_cmd.CommandText = "SELECT * FROM dbo.tblLandmarkContacts WHERE FromID = ?"
RSLandContacts_cmd.Prepared = true
RSLandContacts_cmd.Parameters.Append RSLandContacts_cmd.CreateParameter("param1", 5, 1, -1, RSLandContacts__MMColParam) ' adDouble
Set RSLandContacts = RSLandContacts_cmd.Execute
RSLandContacts_numRows = 0
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Untitled Document</title>
<style type="text/css">
body {
background-color: #000;
font-family: "Trebuchet MS", Arial, Helvetica, sans-serif;
color: #0FF;
}
.Fonts {
font-size: 24px;
}
OtherFonts {
color: #FF0;
}
.Data2 {
font-family: "Trebuchet MS", Arial, Helvetica, sans-serif;
font-size: 10px;
color: #FFF;
text-align: left;
}
.Fonts2 {
color: #FF0;
font-size: 12px;
font-family: "Trebuchet MS", Arial, Helvetica, sans-serif;
text-align: left;
}
.Fonts2Heading {
font-family: "Trebuchet MS", Arial, Helvetica, sans-serif;
color: #FF0;
}
.Fonts table tr td .Fonts2Heading .Fonts2 .Fonts2Heading {
font-weight: bold;
}
.Data {
font-size: 12px;
color: #FFF;
font-family: "Trebuchet MS", Arial, Helvetica, sans-serif;
text-align: left;
}
.Fonts #form1 table {
text-align: left;
font-size: 10px;
}
</style>
</head>
<body class="Fonts">
<table width="100%" border="0">
<tr>
<td><div align="center">Landmark Info Display</div></td>
</tr>
</table>
<p> </p>
<form id="form1" name="form1" method="get" action="">
<table width="100%" border="0" align="center">
<tr>
<td width="64%"><span class="Fonts2"><%=(RSLandmarks.Fields.Item("LandName").Value)%></span></td>
</tr>
<tr>
<td class="Data"><span class="Data2"><%=(RSLandmarks.Fields.Item("StNumber").Value)%> <%=(RSLandmarks.Fields.Item("Dir").Value)%> <%=(RSLandmarks.Fields.Item("Address").Value)%></span></td>
</tr>
<tr>
<td class="Data"><span class="Fonts"><span class="Fonts"><span class="Fonts2">CONTACTS</span></span></span></td>
</tr>
<tr>
<td class="Data"><table width="100%" border="0" align="center">
<tr>
<td width="32%"><span class="Data2"><%=(RSLandmarks.Fields.Item("ContactType1").Value)%></span></td>
<td width="46%"><span class="Data2"><%=(RSLandmarks.Fields.Item("PrimaryContact").Value)%></span></td>
<td width="22%"><span class="Data2"><%=(RSLandmarks.Fields.Item("PrimaryPhone").Value)%></span></td>
</tr>
<tr>
<td><span class="Data2"><%=(RSLandmarks.Fields.Item("ContactType2").Value)%></span></td>
<td><span class="Data2"><%=(RSLandmarks.Fields.Item("Contact2").Value)%></span></td>
<td><span class="Data2"><%=(RSLandmarks.Fields.Item("Phone2").Value)%></span></td>
</tr>
<tr>
<td><%=(RSLandContacts.Fields.Item("ContactType").Value)%></td>
<td><%=(RSLandContacts.Fields.Item("ConName").Value)%></td>
<td><%=(RSLandContacts.Fields.Item("Phone").Value)%></td>
</tr>
</table></td>
</tr>
<tr>
<td class="Data"> </td>
</tr>
</table>
</form>
<p class="Fonts2"> </p>
<p class="Fonts2"> </p>
</body>
</html>
<%
RSLandmarks.Close()
Set RSLandmarks = Nothing
%>
<%
RSLandContacts.Close()
Set RSLandContacts = Nothing
%>