Søg
Avatar billede starf Nybegynder
17. januar 2006 - 23:52 Der er 8 kommentarer og
2 løsninger

Sætte noget ind, hvis form er tom

Hej

Er ved at forsøge at lave en gæstebog
vil gerne have så hvis man ikke skriver noget i det felt, hvor man skal skrive sin hjemmeside adresse ind i, at koden så automatisk sætter et X i databasen. Hvordan gøres dette?
Avatar billede jansangill Nybegynder
18. januar 2006 - 00:58 #1
<%

'å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

%>
Avatar billede starf Nybegynder
18. januar 2006 - 02:33 #2
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
Avatar billede Slettet bruger
18. januar 2006 - 03:12 #3
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
Avatar billede starf Nybegynder
18. januar 2006 - 04:09 #4
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
Avatar billede jansangill Nybegynder
18. januar 2006 - 10:04 #5
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
Avatar billede Slettet bruger
18. januar 2006 - 10:19 #6
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
Avatar billede starf Nybegynder
18. januar 2006 - 16:55 #7
Yes det virker perfekt.. Tak! smid et svar :)
Avatar billede Slettet bruger
18. januar 2006 - 17:00 #8
Hvem af os skal smide et svar?

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

\Dan
Avatar billede starf Nybegynder
18. januar 2006 - 17:06 #9
ja det er sku enligt et godt spørgsmål.. vil tro jansangill
også lige skla smide et :)
Avatar billede jansangill Nybegynder
19. januar 2006 - 00:18 #10
her er et svar

jan
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel Indlæg Oprettet Seneste aktivitet
Persits.Upload Af bsn i ASP 9 17/09/202611:37 21/09/202615:15
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP 10 25/06/202622:20 04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP 4 18/05/202601:57 19/05/202613:33
Lost focus Af bsn i ASP 1 07/11/202415:34 01/01/202514:58
ASP classic Af bsn i ASP 8 28/10/202423:11 30/10/202422:51
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I dag 12:14 Ang udskrift Canon mb5050 Af made18 i Printere
I går 21:29 Vedr. Windows 11 version 26H2 Af ErikHg i Fri debat
I går 18:16 Tømme gammel PC for indhold, kan ikke tændes Af Mai i Andet software
01/1017:41 NVIDIA Geforce GTX 1060 6 GB som "snakker" Af dcedata1977 i Andet hardware
27/0916:43 Nomad Tracking Car Af fleknes i Apps til Android
White papers
Flere white papers »