home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 September / CHIPCD_9_99.iso / software / uaktualnienia / OptionPackPL / iis4_02.cab / signbook.asp < prev    next >
Encoding:
Text File  |  1998-04-27  |  7.0 KB  |  177 lines
  1. <% @ LANGUAGE="VBSCRIPT" %>
  2. <%
  3.  OPTION EXPLICIT
  4.  DIM cm, iLength,Email, MessageEmail, MessageBody, MessageDate, MessageFrom, MessagePrivate, MessageSubject, objConn, objParam, strProvider, strQuery, StrSort, URL, MessageURL, lead_cell, mid_cell, end_cell
  5.  '********** Variable assignments
  6.  lead_cell    = "<TR><TD Align='right' valign='top' width='150'><B><FONT SIZE='-1' FACE='arial','Arial'>"
  7.  mid_cell    = "</FONT></B></TD><TD valign='top'><FONT SIZE='-1' FACE='arial','Arial'>"
  8.  end_cell    = "</FONT></TD></TR>"
  9.  
  10. '        $Date: 10/20/97 4:17p $
  11. '        $ModTime: $
  12. '        $Revision: 14 $
  13. '        $Workfile: signbook.asp $
  14.  
  15.  If ((request("REQUEST_METHOD") = "POST") and ((request("CONTENT_LENGTH") > 0) and (request("CONTENT_LENGTH") < 1700))) then %>
  16.     <% 
  17.       If request("MessageEmail") <> "" Then
  18.         Email = request("MessageEmail")
  19.       Else
  20.         Email = "brak adresu e-mail"
  21.       End If
  22.  
  23.       If request("MessageBody") <> "" Then
  24.         MessageBody = Request("MessageBody")
  25.       Else
  26.         MessageBody = "pusta"
  27.       End If
  28.  
  29.       If request("MessageDate") <> "" Then
  30.         MessageDate = request("MessageDate")
  31.       Else
  32.         MessageDate = ( day( now ) & "-" & month( now ) & "-" & year( now ) & " " & time() )
  33.       End If
  34.  
  35.       If request("MessageFrom") <> "" Then
  36.         MessageFrom = request("MessageFrom")
  37.       Else
  38.         MessageFrom = "go£µ anonimowy"
  39.       End If
  40.  
  41.       If request("MessagePrivate") <> "" Then
  42.         MessagePrivate = request("MessagePrivate")
  43.       Else
  44.         MessagePrivate = "True"
  45.       End If
  46.  
  47.       If request("MessageSubject") <> "" Then
  48.         MessageSubject = request("MessageSubject")
  49.       Else
  50.         MessageSubject = "pusty"
  51.       End If
  52.  
  53.     If request("MessageURL") <> "" Then
  54.         If request("MessageURL") = "http://" THEN
  55.           URL = "brak strony g│≤wnej"
  56.         Else
  57.           URL = request("MessageURL")
  58.         End If
  59.     Else
  60.         URL = "brak strony g│≤wnej"
  61.     End If
  62.  
  63.     If MessageBody = "" Then
  64.        iLength=255
  65.     Else
  66.        iLength = Len(MessageBody)
  67.     End If
  68.  
  69.     strProvider="Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\iisadmin") & "\website\messages.mdb;"
  70.  
  71.     set cm = Server.CreateObject("ADODB.Command")
  72.     set objConn = server.createobject("ADODB.Connection")
  73.     objConn.Open strProvider
  74.  
  75.     cm.ActiveConnection = objConn
  76.  
  77.     cm.CommandText="INSERT INTO Messages(MessagePrivate,MessageDate,MessageFrom,Email,URL,MessageSubject,MessageBody) VALUES (?, ?, ?, ?, ?, ?, ?)"
  78.     Set objParam=cm.CreateParameter(, 200, , 255, MessagePrivate)
  79.         cm.Parameters.Append objParam
  80.     Set objParam=cm.CreateParameter(, 200, , 255, MessageDate)
  81.         cm.Parameters.Append objParam
  82.     Set objParam=cm.CreateParameter(, 201, , 255, MessageFrom)
  83.         cm.Parameters.Append objParam
  84.     Set objParam=cm.CreateParameter(, 201, , 255, Email)
  85.         cm.Parameters.Append objParam
  86.     Set objParam=cm.CreateParameter(, 201, , 255, URL)
  87.         cm.Parameters.Append objParam
  88.     Set objParam=cm.CreateParameter(, 201, , 255, MessageSubject)
  89.         cm.Parameters.Append objParam
  90.     Set objParam=cm.CreateParameter(, 201, , iLength, MessageBody)
  91.         cm.Parameters.Append objParam
  92.     cm.Execute
  93.     %>
  94.     <!-- Database Fields -->
  95.     <!-- MessagePrivate,MessageDate,MessageFrom,Email,URL,MessageSubject,MessageBody -->
  96.     <html>
  97.     <head>
  98.     <title>Thanks!</title>
  99.     <!--#include virtual ="/iissamples/homepage/sub.inc"-->
  100.     <%
  101.      call stylesheet
  102.     %>
  103. </HEAD>
  104. <BODY TopMargin=0 Leftmargin="0" BGColor="#FFFFFF">
  105. <FONT SIZE='-1' FACE='arial','Arial'>
  106. <TABLE BORDER=0 cellspacing=0 cellpadding=1 width="100%" height="100%" class=bg0>
  107.     <TR><TD class=bg2 Rowspan="8" Width="20"> </TD>
  108.         <TD Colspan=2 class=bg3>
  109.         <H3>DziΩkujΩ za wprowadzenie komentarzy!</H3>
  110.         </TD></TR>
  111.     <% response.write lead_cell & "<B>Twoja nazwa:            </B>" & mid_cell & MessageFrom        & end_cell _
  112.                     & lead_cell & "<B>Tw≤j adres e-mail:    </B>" & mid_cell & Email        & end_cell _
  113.                     & lead_cell & "<B>Adres strony g│≤wnej:        </B>" & mid_cell & URL        & end_cell _
  114.                     & lead_cell & "<B>Temat wiadomo£ci:        </B>" & mid_cell & MessageSubject    & end_cell _
  115.                     & lead_cell & "<B>Twoja wiadomo£µ:            </B>" & mid_cell & MessageBody        & end_cell
  116.     %>
  117.     <TR><TD Colspan=2><HR></TD></TR>
  118.     <TR><TD Align="left" Colspan=2><B><A HREF="signbook.asp">Wpisz siΩ do ksi╣┐ki go£ci</A></B><BR>
  119.         <B><A HREF="guestbk.asp">Powr≤t do ksi╣┐ki go£ci</A></B><BR>
  120.         <B><A HREF="Default.asp">Powr≤t do strony g│≤wnej</A></B>
  121.         </TD></TR>
  122. </TABLE>
  123.  
  124. <% Else %>
  125.     <HTML>
  126.     <HEAD>
  127.     <TITLE>
  128.     <%
  129.      If request("private") <> "" Then
  130.         response.write "Zostaw prywatn╣ wiadomo£µ"
  131.      Else
  132.         response.write "Wpisz siΩ do ksi╣┐ki go£ci"
  133.      End If
  134.     %>
  135.     </TITLE>
  136.     <!--#include virtual ="/iissamples/homepage/sub.inc"-->
  137.     <%
  138.      call stylesheet
  139.     %>
  140. </HEAD>
  141. <BODY TopMargin=0 Leftmargin="0" BGColor="#FFFFFF">
  142. <FORM NAME="message" METHOD=POST ACTION="signbook.asp">
  143. <TABLE BORDER=0 cellspacing=1 cellpadding=1 width=100% height="100%" class=bg0>
  144.     <TR><TD class=bg2 Rowspan="10" Width="20"> </TD>
  145.         <TD Colspan=2 Height="20" class=bg3>
  146.         <% If request("private") <> "" Then %>
  147.             <H2>Zostaw prywatn╣ wiadomo£µ</h2> 
  148.             <H6>Aby zostawiµ wiadomo£µ, wype│nij poni┐szy formularz i kliknij przycisk "Wy£lij wiadomo£µ".<br>
  149.             Je£li chcesz zacz╣µ od pocz╣tku, kliknij przycisk "Wyczy£µ pola".</H6>
  150.             <INPUT TYPE="HIDDEN" NAME="MessagePrivate" VALUE="-1">
  151.         <% Else %>
  152.             <H2>Wpisz siΩ do ksi╣┐ki go£ci</h2> 
  153.             <H6>Aby wpisaµ siΩ do ksi╣┐ki go£ci, wype│nij poni┐szy formularz i kliknij przycisk "Wy£lij wiadomo£µ".<br>
  154.             Je£li chcesz zacz╣µ od pocz╣tku, kliknij przycisk "Wyczy£µ pola".</H6>
  155.             <INPUT TYPE="HIDDEN" NAME="MessagePrivate" VALUE="0">
  156.         <% End If %>
  157.         </TD></TR>
  158.     <TR><TD Colspan=2 Height="20"></TD></TR>
  159.     <%
  160.      response.write lead_cell & "Twoja nazwa:            " & mid_cell & "<INPUT TYPE='text' NAME='MessageFrom'     Size='66' MAXLENGTH='254' style='color:black; font-family:Arial;font-size:10pt'>"                & end_cell _
  161.                 & lead_cell & "Tw≤j adres e-mail:    " & mid_cell & "<INPUT TYPE='text' NAME='MessageEmail'     Size='66' MAXLENGTH='254' style='color:black; font-family:Arial;font-size:10pt'>"                & end_cell _
  162.                 & lead_cell & "Adres strony g│≤wnej:        " & mid_cell & "<INPUT TYPE='text' NAME='MessageURL'     Size='66' MAXLENGTH='254' VALUE='http://' style='color:black; font-family:Arial;font-size:10pt'>"& end_cell _
  163.                 & lead_cell & "Temat wiadomo£ci:        " & mid_cell & "<INPUT TYPE='text' NAME='MessageSubject' Size='66' MAXLENGTH='254' style='color:black; font-family:Arial;font-size:10pt'>"                & end_cell _
  164.                 & lead_cell & "Twoja wiadomo£µ:        " & mid_cell & "<TEXTAREA NAME='MessageBody' rows=6 cols=57 style='color:black; font-family:Arial;font-size:10pt'></TEXTAREA>"                            & end_cell
  165.     %>
  166.     <TR><TD Align="right" valign="top" width="150"> </TD><TD Align="left"><INPUT TYPE="SUBMIT" VALUE="Wy£lij wiadomo£µ"><INPUT TYPE="RESET" VALUE="Wyczy£µ pola"></TD></TR>
  167.     <TR><TD Colspan=2 height=4><HR></TD></TR>
  168.     <TR><TD Align="left" Colspan=2><B><A HREF="guestbk.asp">Powr≤t do ksi╣┐ki go£ci</A></B><BR>
  169.         <B><A HREF="/">Powr≤t do strony g│≤wnej</A></B>
  170.     <INPUT TYPE=hidden name=MessageDate value="<% response.write ( day( now ) & "-" & month( now ) & "-" & year( now ) & " " & time() )%>">
  171.     </TD></TR>
  172. </TABLE>
  173. </FORM>
  174. <% End If %>
  175. </BODY>
  176. </HTML>
  177.