<%@ Language=VBScript %>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DSN=locks_users;DriverId=25;FIL=MS Access;MaxBufferSize=512;PageTimeout=5;"
Set Cmnd = Server.CreateObject("ADODB.Command")
Cmnd.ActiveConnection = Conn
tmp=""
if (InStr(Request.Form,"sub1=")>0) then
if (Request.Form("t1")<>"" and Request.Form("ta1")<>"" and Request.Form("t2")<>"" and Request.Form("t3")<>""and Request.Form("t4")<>""and Request.Form("t5")<>"") then
sql="insert into answer (comment,user,email,town,phone,address,ip,comment_date,comment_time)"
sql=sql&" values ("
sql=sql&"'"&replace(Request.Form("ta1"),"'","`")&"',"
sql=sql&"'"&replace(Request.Form("t1"),"'","`")&"',"
sql=sql&"'"&replace(Request.Form("t2"),"'","`")&"',"
sql=sql&"'"&replace(Request.Form("t3"),"'","`")&"',"
sql=sql&"'"&replace(Request.Form("t4"),"'","`")&"',"
sql=sql&"'"&replace(Request.Form("t5"),"'","`")&"',"
sql=sql&"'"&Request.ServerVariables("REMOTE_ADDR")&"',"
sql=sql&"'"&CStr(Date())&"',"
sql=sql&"'"&CStr(Time())&"')"
Cmnd.CommandText=sql
Cmnd.Execute
else
tmp="Введите данные о себе и свой вопрос !"
end if
end if
%>
ANSWER
АРХИВ
<%
if (tmp<>"") then
%>
<%=tmp%>
<%
end if
sql="SELECT * FROM ANSWER WHERE (((ANSWER.comment_date) Between Date()-10365 And Date()-365)) ORDER BY ANSWER.comment_date DESC"
Cmnd.CommandText=sql
set rs=Cmnd.Execute
if (not rs.Eof) then
do while not rs.Eof
%>
<%=replace(rs("comment"),vbCrLf,"
")%>
<%=rs("user")%><"><%=rs("email")%>>
<%=FormatDateTime(CDate(rs("comment_date")),1)&" ("&WeekDayName(Weekday(CDate(rs("comment_date"))))&") - "&FormatDateTime(CDate(rs("comment_time")),3)%>
<%
rs.MoveNext
loop
end if
%>
Add you question/ Задайте свой вопрос
Не принимаются
вопросы от анонимных посетителей.