|
<%
Dim CnnObj
Dim strDataSource,strCnn
If Len(Trim(Session("Path")))=0 Then
Session("Path")= Server.MapPath("\")
End If
strDataSource = Session("Path")&"\htm\admin\database\kdvudb.mdb"
'response.write strDataSource
strCnn = "Provider=Microsoft.Jet.OLEDB.4.0;DATA SOURCE="
strCnn = strCnn &strDataSource& ";"
Set CnnObj = Server.CreateObject("ADODB.Connection")
Cnnobj.Mode = 3
CnnObj.Open strCnn
'Dim rs
'Set rs=Server.CreateObject("ADODB.Recordset")
'rs.Open "select * from tblGuestBook",CnnObj,0,3
'If Not rs.EOF Then
' Response.Write "record : " & rs(0) & rs(1) & rs(2)
'End If
' Response.End
if Request.Form("txtfirst")<>"" or Request.Form("txtlast")<>"" or Request.Form("txtsubject")<>"" or Request.Form("message")<>"" then
txtName=Request.Form("txtfirst")
txtEmail=Request.Form("txtlast")
txtSubject=Request.Form("txtsubject")
txtMessage= Request.Form("message")
txtdate=date()
sqlinsert="insert into tblGuestBook(GuestName,GuestEmail,GuestAuthor,GuestContents,GuestDate)Values('"&txtName&"','"&txtEmail&"','"&txtSubject&"','"&txtMessage&"','"&txtdate&"') "
'sqlinser="Select * from tblGuestBook"
CnnObj.execute sqlinsert
'Response.Write sqlinsert
'Response.End
End if
%>
|
