<% 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=poker-191516.mysql.binero.se;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 %>
<% call showLogin() %>
<% call showHeader() %>
<% call showMenu() %>
<% call mainPage() %>
<% call showBottom() %>
<% sub mainPage() %>
Du befann dig på webb-sidan <%=strOpenerPageTitle%> när du klickade på Feedback & Kommentarer.
Gäller detta ärende webb-sidan <%=strOpenerPageTitle%> ?  Ja
 Nej
Din epost-adress:   
Meddelande Typ: <% dim intIncomingMessageTypeID, strIncomingMessageType do until rsLoop1.EOF intIncomingMessageTypeID = int(rsLoop1("incomingMessageTypeID")) strIncomingMessageType = trim(rsLoop1("incomingMessageType")) %>  <%=strIncomingMessageType%>
<% rsloop1.MoveNext loop %>
Meddelande:
    
<% end sub %>