<%@ 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=""
Dim splDate
splDate = split(Date, ".")
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&"'"&splDate(0)&"/"&splDate(1)&"/"&splDate(2)&"', "
'sql=sql&"'"&Date()&"', "
sql=sql&"'"&CStr(Replace(Date, ".", "/"))&"', "
sql=sql&"'"&Time()&"')"
Cmnd.CommandText=sql
'Cmnd.Execute
else
tmp="Введите данные о себе и свой вопрос !"
end if
end if
%>
Здесь вы можете оставить свои вопросы и наши специалисты будут рады ответить на них.
Новый форум о замках
и дверях с участием профессиональных консультантов.
Попробуйте найти ответ в разделе
FAQ.
Это база данных по уже задававшимся вопросам
с интерактивной системой поиска ответов по темам.
<%
if (tmp<>"") then
%>
<%=tmp%>
<%
end if
'sql="SELECT * FROM ANSWER WHERE (((ANSWER.comment_date) Between Date()-365 And Date())) ORDER BY ANSWER.comment_date DESC"
sql="SELECT * FROM ANSWER WHERE (((ANSWER.comment) Not Like '%SCRIPT%') AND ((ANSWER.comment_date) Between Date()-365 And Date()+1)) 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
%>
АРХИВ
Так же Вы можете посетить:
- форум "ВХОДНЫЕ
ДВЕРИ И ЗАМКИ" на www.mastercity.ru
- форум на www.dpz.ru
- форум "Двери стальные,
межкомнатные, входные. Замки." на портале ВашДом