Dear
Seluruh IT prof.
Saya sedang coba membuat form isian dalam sebuah tabel sbb:
No OPA :
Title :
Date :
Pages :
Indexrelease :
dengan memakai metoda="Post" Action="Formisian1.asp"
koneksi database sudah dibuat dengan nama "engineer"
nama tabel nya "op"
Setelah saya coba, KOmentar mengatakan "data telah sukses dimasukan"
tapi setelah saya coba dibuka di tabelnya (ms Access) ternyata
kosong..????
dimana letak salahnya yah..????
untuk lebih mudahnya kira-kira inilah sourcenya :
<html>
<HEAD><TITLE>huhuy</TITLE></HEAD>
<Body>
<%
' Dalam artikel ini, semua proses akan dilakukan dalam satu script saja,
' yaitu default.asp. Kemudian, form untuk memasukkan data berbentuk
seperti ini.
Function Validasi (varString)
If varString <> "" Then
Validasi = Server.HTMLEncode(Trim(varString))
Else
Validasi = FALSE
End If
End Function
%>
<%
' Sekarang, koneksi ke database dibuka.
strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=" & Server.Mappath("Docdt.mdb") & ";" _
& "Mode=Read|Write;Persist Security Info=False"
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "Engineer"
%>
<%
'Jika Request.Form("entry") ada isinya,
'berarti form baru saja dikirimkan.
'Maka akan diproses lewat blok kode dibawah ini.
'Blok kode dibawah ini akan memasukkan nilai dari form
'yang dikirimkan jika semua validasi selesai.
If Request.Form("entry") = "true" Then
strPart_no = Validasi(Request.Form("Part_no"))
strTitle = Validasi(Request.Form("Title"))
strDate = Validasi(Request.Form("Date"))
strPages = Validasi(Request.Form("Pages"))
strIndexrelease = Validasi(Request.Indexrelease("Date"))
If (strPart_no = FALSE) OR (strTitle = FALSE) OR (strPages =
FALSE) Then
strStatus = "Data kurang lengkap..!"
Else
strQuery = "INSERT INTO op (Part_no, Title, Date, Pages,
Indexreales) VALUES " _
& "('" & strPart_no & "','" & strTitle & "'," _
& "#" & Now() & "#,'" & strPages & "','" & strIndexreales & "')"
oConn.Execute strQuery
End If
End If
%>
<%
' Setelah proses diatas selesai,
' maka yang perlu dilakukan selanjutnya
' adalah mengambil data yang ada dalam database
' dan kemudian menampilkannya.
strQuery = "SELECT Part_no, Title, Date, Pages, Indexreales" _
& " FROM op ORDER BY Date DESC "
Set oRs = Server.CreateObject("ADODB.Recordset")
oRs.Source = strQuery
oRs.ActiveConnection = oConn
oRs.Open
%>
<H3> Data sudah anda Masukan......!!!!</H3>
While NOT oRs.EOF
Response.Write "<p>"
Response.Write "Oleh : " & oRs(0) _
& "><a href=""mailto:" & oRs(1) & """>" & oRs(1) & "</a>><br>"
Response.Write "Tanggal : " & FormatDateTime(oRs(2), 1) & "<br>"
Response.Write "Komentar : " & oRs(3) & "<br>
Response.Write "</p>"
oRs.MoveNext
Wend
%>
</BODY>
</HTML>
Tolong Mungkin ada yang bisa bantu :...!!!!!
--
Pusing milih POP3 atau web mail? http://mail.telkom.net solusinya
Berhenti langganan kirim email ke [EMAIL PROTECTED]
Arsip di http://www.mail-archive.com/[email protected]/
