---

Hej NG !!

Jeg har koden:

<%
Const adOpenKeyset = 1
Const adLockOptimistic = 3
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" &
Server.MapPath("../../db/news.mdb") & ";UID=admin;PWD=;"
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "Select * From news"
rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
rs.AddNew
rs("overskrift") = Request.form("overskrift")
rs("Besked") = Request.form("Besked")
rs("Forfatter") = Request.form("Forfatter")
rs("Dato") = Date
rs("link") = Request.form("link")
rs("xtern1") = Request.form("xtern1")
rs.Update
rs.Close
Set rs = Nothing
Conn.Close
set Conn = Nothing
response.redirect ("admin.asp")
%>

Denne kode requester de forskellige forme efter værdier/teksterenge at
indsætte i databasen. Den kan imidlertid ikke håndtere et tom form, hvilket
jeg gerne vil have den til. Nogle ideer til hvordan den kan klares ?

---

>Jeg har koden:
>
><%
>Const adOpenKeyset = 1
>Const adLockOptimistic = 3
>Set Conn = Server.CreateObject("ADODB.Connection")
>Conn.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" &
>Server.MapPath("../../db/news.mdb") & ";UID=admin;PWD=;"
>Set rs = Server.CreateObject("ADODB.RecordSet")
>strSQL = "Select * From news"
>rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
>rs.AddNew
>rs("overskrift") = Request.form("overskrift")
>rs("Besked") = Request.form("Besked")
>rs("Forfatter") = Request.form("Forfatter")
>rs("Dato") = Date
>rs("link") = Request.form("link")
>rs("xtern1") = Request.form("xtern1")
>rs.Update
>rs.Close
>Set rs = Nothing
>Conn.Close
>set Conn = Nothing
>response.redirect ("admin.asp")
>%>
>
>Denne kode requester de forskellige forme efter værdier/teksterenge at
>indsætte i databasen. Den kan imidlertid ikke håndtere et tom form, hvilket
>jeg gerne vil have den til. Nogle ideer til hvordan den kan klares ?

Tilføj denne funktion:

Function PrepareForDB(fvalue)
   If fvalue = "" Then
      PrepareForDB = null
   Else
      PrepareForDB = fvalue
   End if
End function

....og brug den på hvert felt sådan:

rs("overskrift") = PrepareForDB(Request.form("overskrift"))

Regards,
Allan Jensen