Mesaj Panosu
<% Set Connrsm = Server.CreateObject("ADODB.connection") DSNtemprsm="DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/cgi-bin/ziyaretci.mdb") Connrsm.Open DSNtemprsm firmaid = 100 if Request("mode") = "gbsign" then c1 = altzemin c2 = solzemin else c2 = solzemin c1 = altzemin end if 'Dir = Request.ServerVariables("SCRIPT_NAME") 'Dir = StrReverse(Dir) 'Dir = Mid(Dir, InStr(1, Dir, "/")) 'Dir = StrReverse(Dir) 'Path = Server.MapPath(Dir) 'RS Pageing RSPage = TRIM(Request.QueryString("page")) IF Len(RSPage)=0 THEN RSPage = 1 session.codepage = 1254 ELSE END IF 'Check IF Len(Max)<2 OR NOT IsNumeric(max) THEN Max = 12 %>
> |
> size='2' face='Arial, Helvetica'>Deftere Yaz | > | |
> |
> size='2' face='Arial, Helvetica'>Defteri Oku | > | | ||||||||||
|
<%
'set conn=server.createobject("ADODB.connection")
'conn.Open dsnpath
Set Rs = Server.CreateObject("ADODB.Recordset")
if Request("guest_name") <> "" then
SQL = "SELECT * FROM ziyaretciler WHERE firmaid=0" & firmaid & ""
rs.Open SQL, Connrsm, 1, 3
rs.AddNew
rs.Fields("firmaid") = firmaid
rs.Fields("isim") = Request("guest_name")
rs.Fields("eposta") = Request("guest_email")
rs.Fields("url") = Request("guest_URL")
rs.Fields("sehir") = Request("guest_address")
rs.Fields("meslek") = Request("meslek")
rs.Fields("ulke") = Request("ulke")
rs.Fields("mesaj") = Request("guest_comments")
rs.Update
rs.Close
response.write "Mesajınız kaydedilmiştir, onaylandıktan sonra yayına girecektir " response.write "Önceki mesajları okumak isterseniz " response.write "Buraya Tıklayınız " response.write "Pencereyi Kapat " response.end end if sub gbView SQL = "SELECT * FROM ziyaretciler WHERE firmaid=0" & firmaid & " AND onay=1 order by tarih DESC" Set Rs = Server.CreateObject("ADODB.Recordset") rs.Open SQL, Connrsm, 1,3 'RS.Open SQL_query, MyConn, 3 IF RS.EOF OR RS.BOF THEN %>
<% ELSE RS.PageSize = max TotalPages = RS.PageCount RS.AbsolutePage = RSPage TotalHits = RS.RecordCount IF NOT RSPage = 1 THEN%> [Önceki] <%END IF%> Toplam <%=TotalHits%> adet kayıt vardır <%IF NOT CInt(TotalPages) = CInt(RSPage) THEN%> [Sonraki] <%END IF if RSPage = 1 then j= TotalHits +1 else j= (TotalHits +1)- ((RSPage - 1)*max) end if WHILE NOT RS.EOF AND NOT i > CInt(Max)-1 i=i+1 j=j-1 %>
<% RS.MoveNext WEND %>
| |||||||||||||||||