Mit nachstehendem Code versuche ich noch eine Plausipr�fung zu integrieren. Kann mir
jemand sagen wie ich diese Erweitern muss dass wenn der User nichts eingibt ein Fehler
ausgewiesen wird. Zbsp. "bitte ausf�llen!"
InseratNachname = Request("InseratNachname")
Errors=False
if request.Form("InseratNachname")=vbNullString then Errors=True
Set OBJdbConnection = Server.CreateObject("ADODB.Connection")
OBJdbConnection.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &
Server.MapPath("db\db1.mdb"))
if Not Errors then
Set resResultat = Server.CreateObject("ADODB.Recordset")
resResultat.CursorType = adOpenKeyset
resResultat.LockType = adLockOptimistic
resResultat.Open "Inserat", OBJdbConnection, , , adCmdTable
resResultat.AddNew
If InseratNachname <> "" Then resResultat("InseratNachname") =
InseratNachname
resResultat.Update
Response.Redirect "formularok.asp?"
end if
Cu Sebi
| Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/
| [aspdebeginners] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv
| Sie knnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdebeginners.asp
