% option explicit
response.buffer = true
' CREATOR: Roland Hyden
' MAIL: roland_hyden@yahoo.com
dim thePageTitle, thePageName, thePageNameLinks
thePageTitle = "FEEDBACK KOMMENTARER"
thePageName = "message_incomingMessage_1.asp"
thePageNameLinks = "message_incomingMessage_1.asp"
%>
<% dim strQuerystring
strQuerystring = request("theQuerystring")
'response.write "strQuerystring = " &strQuerystring& "
"
dim strOpenerPageName
strOpenerPageName = trim(request("openerPage"))
strOpenerPageName = replace(strOpenerPageName,"¤","?")
strOpenerPageName = replace(strOpenerPageName,"|","&")
'response.write "strOpenerPageName = " &strOpenerPageName& "
"
dim strOpenerPageTitle
strOpenerPageTitle = trim(request("pageTitle"))
'response.write "strOpenerPageTitle = " &strOpenerPageTitle& "
"
dim strLoggedInUserMail
strLoggedInUserMail = trim(session("userMail"))
'response.write "strLoggedInUserMail = " &strLoggedInUserMail& "
"
dim lenLoggedInUserMail
lenLoggedInUserMail = len(session("userMail"))
'response.write "lenLoggedInUserMail = " &lenLoggedInUserMail& "
"
dim textWidth, formWidth, areaHeight, areaRows
textWidth = int(130)
formWidth = int(220)
areaRows = int(8)
'*************** OPEN THE DATABASE
dim conn
set conn = Server.CreateObject ("ADODB.Connection")
conn.Open "Driver={MySQL ODBC 5.1 Driver};Server=localhost;Database=191516-poker;User=191516_vt67146;Password=DBpoker0;Option=3;"
dim sqlLoop1, rsLoop1
sqlLoop1 = "SELECT incomingMessageTypeID, incomingMessageType "
sqlLoop1 = sqlLoop1 & "FROM tbl_incomingMessageType "
sqlLoop1 = sqlLoop1 & "ORDER BY sortOrder"
set rsLoop1 = conn.execute(sqlLoop1)
%>
www.donRollo.se
<% if request("status") = 2 then %>
<% else %>
<% end if %>
<% sub mainPage() %>
<% end sub %>