Sætte noget ind, hvis form er tom

<%

'åbner databasen
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.open = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& server.MapPath("database")

'variabel
hjemmemside = trim(replace(request.form("hjemmeside"),chr(34),chr(39)))


'Hvis der ikke er indsat noget i formen

if len(hjemmeside)= 0 then

    SQL = "INSERT INTO tabel (hjemmeside) VALUES (X)"

    Conn.Execute(SQL)

            else

    'Hvis der er indsat noget i formen
 
    SQL = "INSERT INTO tabel (hjemmeside) VALUES ('" & hjemmeside & "')"

    Conn.Execute(SQL)

end if

%>

hvordan vil du lægge det sammen med det andet?

altså min indsætnings kode ser pt sådan her ud:

Const adOpenKeyset = 1
Const adLockOptimistic = 3

Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "Select * From gb"
rs.Open strSQL, Connect, adOpenKeyset, adLockOptimistic
rs.AddNew
If Request.Form("Name") > "" Then rs("Name") = Request.Form("Name")
If Request.Form("Email") > "" Then rs("Email") = Request.Form("Email")
If Request.Form("Homepage") > "" Then rs("Homepage") = Request.Form("Homepage")
If Request.Form("Entry") > "" Then rs("Entry") = Request.Form("Entry")
rs("Date") = date()
rs("ip") = Request.ServerVariables("REMOTE_ADDR")
rs.Update
rs.Close
Set rs = Nothing
Connect.Close
set Connect = Nothing

Hej

Prøv nedenstående:
Const adOpenKeyset = 1
Const adLockOptimistic = 3

Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "Select * From gb"
rs.Open strSQL, Connect, adOpenKeyset, adLockOptimistic
rs.AddNew
if Request.Form("Name") <> "" then
rs("Name") = Request.Form("Name")
end if
if Request.Form("Email") <> "" then
rs("Email") = Request.Form("Email")
if Request.Form("Homepage") <> "" then
rs("Homepage") = Request.Form("Homepage")
else
rs("Homepage") = "X"
end if
if Request.Form("Entry") <> "" then
rs("Entry") = Request.Form("Entry")
end if
rs("Date") = date()
rs("ip") = Request.ServerVariables("REMOTE_ADDR")
rs.Update
rs.Close
Set rs = Nothing
Connect.Close
set Connect = Nothing

Dette skulle gerne virke...

\Dan

Microsoft VBScript compilation error '800a03f6'

Expected 'End'

/post_process_form.asp, line 67


er hva jeg får

linie 67 er:

End If

hvis jeg bruger den del jeg har skrevet er der ingen problemer underligt nok. hele min kode ser således ud..

If blnCAPTCHAcodeCorrect Then
   
    Response.Write("Correctly")
   
Const adOpenKeyset = 1
Const adLockOptimistic = 3

Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "Select * From gb"
rs.Open strSQL, Connect, adOpenKeyset, adLockOptimistic
rs.AddNew
if Request.Form("Name") <> "" then
rs("Name") = Request.Form("Name")
end if
if Request.Form("Email") <> "" then
rs("Email") = Request.Form("Email")
if Request.Form("Homepage") <> "" then
rs("Homepage") = Request.Form("Homepage")
else
rs("Homepage") = "X"
end if
if Request.Form("Entry") <> "" then
rs("Entry") = Request.Form("Entry")
end if
rs("Date") = date()
rs("ip") = Request.ServerVariables("REMOTE_ADDR")
rs.Update
rs.Close
Set rs = Nothing
Connect.Close
set Connect = Nothing


Else

    Response.Write("Incorrectly")
End If

der er glemt en end if i dans tilfælde, her:

if Request.Form("Email") <> "" then
rs("Email") = Request.Form("Email")

skal være:

if Request.Form("Email") <> "" then
rs("Email") = Request.Form("Email")
end if

Jeps det var bare en "end if"´er jeg havde glemt...
Prøv denne her:
If blnCAPTCHAcodeCorrect Then
   
    Response.Write("Correctly")
   
Const adOpenKeyset = 1
Const adLockOptimistic = 3

Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "Select * From gb"
rs.Open strSQL, Connect, adOpenKeyset, adLockOptimistic
rs.AddNew
if Request.Form("Name") <> "" then
rs("Name") = Request.Form("Name")
end if
if Request.Form("Email") <> "" then
rs("Email") = Request.Form("Email")
end if
if Request.Form("Homepage") <> "" then
rs("Homepage") = Request.Form("Homepage")
else
rs("Homepage") = "X"
end if
if Request.Form("Entry") <> "" then
rs("Entry") = Request.Form("Entry")
end if
rs("Date") = date()
rs("ip") = Request.ServerVariables("REMOTE_ADDR")
rs.Update
rs.Close
Set rs = Nothing
Connect.Close
set Connect = Nothing


Else

    Response.Write("Incorrectly")
End If

Yes det virker perfekt.. Tak! smid et svar :)

Hvem af os skal smide et svar?

Nå, men her er et fra mig...

\Dan

ja det er sku enligt et godt spørgsmål.. vil tro jansangill
også lige skla smide et :)

her er et svar

jan