<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Response.Buffer=True
set MyConn = Server.CreateObject("ADODB.Connection")
MyConn.Open MM_HNISVRNODSN_STRING
%>
<%
Dim varState
varState = "xyz"
if (request.querystring("state") <> "") then varState = request.querystring("state")
%>
<%
'Set RS_Dealer = MyConn.Execute("SELECT DealerNAME, Phone, ADDRESS1, City, State, ZIP, WebSiteName, WebSiteAddress, email_address FROM dbo.tbl_LittleBigHornDealers WHERE State = " & RS_Dealer__varState & "")
Set RS_Dealer=Server.CreateObject("ADODB.Recordset")
RS_Dealer.Open "SELECT DealerID, DealerNAME, Address1, City, State, Zip, Phone, Country, WebSiteName, WebSiteAddress, email_address FROM "&strTablePrefix&"Dealers WHERE State = '"&varState&"'Order by DealerNAME", MyConn
Dim MyConn
Set MyConn=Server.CreateObject("ADODB.Connection")
MyConn.Open(MM_HNISVRNODSN_STRING)
Dim RS_news__varID
RS_news__varID = "3"
if (Request.Querystring("ID") <> "") then RS_news__varID = Request.Querystring("ID")
%>
<%
set RS_news = Server.CreateObject("ADODB.Recordset")
RS_news.ActiveConnection = MM_HNISVRNODSN_STRING
RS_news.Source = "SELECT NEWS_ID, NEWS_TEASER, NEWS_ARTICLE, NEWS_IMAGE1, NEWS_IMAGE2, NEWS_IMAGE3, NEWS_PLACEMENT FROM "&strTablePrefix&"_newsimg WHERE NEWS_PLACEMENT ='0' Order by NEWS_ID desc"
RS_news.CursorType = 0
RS_news.CursorLocation = 2
RS_news.LockType = 3
RS_news.Open()
RS_news_numRows = 0
%>
<%
'format article function
'create prpper directory names
Function textareaformat(thestring)
thestring= Replace(thestring,"--image1--",(RS_news.Fields.Item("news_IMAGE1").Value))
thestring= Replace(thestring,"--image2--",(RS_news.Fields.Item("news_IMAGE2").Value))
thestring= Replace(thestring,"--image3--",(RS_news.Fields.Item("news_IMAGE3").Value))
thestring= Replace(thestring,vbCrLf,"")
thestring= Replace(thestring,"chr(13)&chr(10)&chr(13)&chr(10)","
")
thestring= Replace(thestring,"chr(13)&chr(10)","
MKS
