tjek af eksisterende poster

Skal det ikke være if( rs.EOF AND rs.BOF ) then   
 

SQL = \"select * from Links where UCase(URL) = UCase(\'\"& request.form(\"2\") &\"\')\"
Set RS = conn.Execute(SQL)
if not RS.EOF then
    response.write \"Findes allerede\"
end if

OK, jeg er nødt til at have det uddybet lidt jeg er begynder her..

i stedet for : if( rs.EOF OR rs.BOF ) then   

skriver du

if rs.EOF then   

jeg prøver lige

Jeg får følgende:
Operation is not allowed when the object is open.

/form.asp, line 18

Og linie 18 ser sådan her ud:
rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic   

hmmmmmm.... luk din browser og åben den igen....

underlig fejl...

den gør det igen.??

Du har sandsynligvis 2 (eller flere) rs.Open i din kode. Kig længere oppe i koden.

Denne fejl opstår hvis du prøver at åbne et recordset der allerede er åbnet.

Det er rigtigt.
Øjeblik!!

Operation is not allowed when the object is open.

/form.asp, line 23


Hva gør jeg ??

Hvad er der i den linie ?

Prøv evt. at poste hele koden...

rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic

Her kommer hele skidtet:
<%Response.Buffer = True%>

<%

Const adOpenKeyset = 1
Const adLockOptimistic = 3

strConnect = \"Data Source=d:\\home\\istoriadk\\db\\database.mdb;Provider=Microsoft.Jet.OLEDB.4.0;\"

Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; \"

Conn.Open strConnect

Set rs = Server.CreateObject(\"ADODB.RecordSet\")
   
SQL = \"select * from Links where UCase(URL) = UCase(\'\"& request.form(\"2\") &\"\')\"
Set RS = conn.Execute(SQL)
if not RS.EOF then
    response.write \"Findes allerede\"
end if

rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic   
 
  strSQL = \"INSERT INTO links ( LinkName, URL, sogeord, kategori, Beskrivelse, Email, Rigtignavn ) \"   
strSQL = strSQL & \" VALUES(\'\" & Request.Form(\"1\") & \"\',\'\" & Request.Form(\"2\") & \"\',\'\" & Request.Form(\"sogeord\") & \"\',\"   
strSQL = strSQL & \"\'\" & Request.Form(\"kategori\") & \"\',\'\" & Request.Form(\"Beskrivelse\") & \"\',\'\" & Request.Form(\"Email\") & \"\',\"   
strSQL = strSQL & \"\'\" & Request.Form(\"Rigtignavn\") & \"\'\"   
Conn.Execute strSQL   
 
rs.Close     
Set rs = Nothing     
Conn.Close     
set Conn = Nothing   


%>

Du åbner dit recordset både med Set RS = conn.Execute(SQL) og rs.Open

Skal jeg så bare slette rs.open
??

Nej, hvis jeg gør det kommer den her:
Type mismatch: \'strSQL\'

/form.asp, line 23

Sandsynligvis skal du bare have en response.end ind efter \"findes allerede\", for du vil jo ikke lave en insert hvis den allerede findes. I de tilfælde hvor den ikke findes og du derfor vil lave en insert, skal du erstatte din rs.open med rs.execute, d.v.s. du skal ikke åbne det igen, men blot køre et nyt SQL statement.

OK altså
SQL = \"select * from Links where UCase(URL) = UCase(\'\"& request.form(\"2\") &\"\')\"
Set RS = conn.Execute(SQL)
if not RS.EOF then
    response.write \"Findes allerede\"
    respone.end
end if

Jeps, det afbryder videre behandling af scriptet.

Men du skal stadig ændre din rs.open længere nede, da dit recordset allerede er åbnet hvis den ikke findes og du derfor vil indsætte den.

Ahh, der mangler lige et \'s\' i din kode fra før

s ??

SQL = \"select * from Links where UCase(URL) = UCase(\'\"& request.form(\"2\") &\"\')\"
Set RS = conn.Execute(SQL)
if not RS.EOF then
    response.write \"Findes allerede\"
    respone.end                              <---- HER :-)
end if

OK, nu får den fejl igen?
Operation is not allowed when the object is open.

/form.asp, line 24

linie 24: rs.open strSQL, Conn, adOpenKeyset, adLockOptimistic   

rs.open er erstattet med rs.execute
Object doesn\'t support this property or method: \'rs.Execute\'

/form.asp, line 24

Du skal faktisk helt fjerne linien med rs.open

SQL = \"select * from Links where UCase(URL) = UCase(\'\"& request.form(\"2\") &\"\')\"
Set RS = conn.Execute(SQL)
if not RS.EOF then
    response.write \"Findes allerede\"
end if

rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic    <-- Her åbner du, men det er allerede åbnet. Samtidig kører du med strSQL som SQL statement, men det bliver først defineret herunder.
 
  strSQL = \"INSERT INTO links ( LinkName, URL, sogeord, kategori, Beskrivelse, Email, Rigtignavn ) \"   
strSQL = strSQL & \" VALUES(\'\" & Request.Form(\"1\") & \"\',\'\" & Request.Form(\"2\") & \"\',\'\" & Request.Form(\"sogeord\") & \"\',\"   
strSQL = strSQL & \"\'\" & Request.Form(\"kategori\") & \"\',\'\" & Request.Form(\"Beskrivelse\") & \"\',\'\" & Request.Form(\"Email\") & \"\',\"   
strSQL = strSQL & \"\'\" & Request.Form(\"Rigtignavn\") & \"\'\"   
Conn.Execute strSQL                                        <- denne linie skal du beholde, i stedet for den med rs.open

Også:
Conn, adOpenKeyset, adLockOptimistic
i linien
rs.open strSQL, Conn, adOpenKeyset, adLockOptimistic 

Undskyld, det er rigtigt. Du skal bruge execute mod connection objektet, som du gør i Set RS = conn.Execute(SQL). Prøv at bruge følgende kode:

<%Response.Buffer = True%>

<%

Const adOpenKeyset = 1
Const adLockOptimistic = 3

strConnect = \"Data Source=d:\\home\\istoriadk\\db\\database.mdb;Provider=Microsoft.Jet.OLEDB.4.0;\"

Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; \"

Conn.Open strConnect

Set rs = Server.CreateObject(\"ADODB.RecordSet\")
   
SQL = \"select * from Links where UCase(URL) = UCase(\'\"& request.form(\"2\") &\"\')\"
Set RS = conn.Execute(SQL)
if not RS.EOF then
    response.write \"Findes allerede\"
    response.end
end if

strSQL = \"INSERT INTO links ( LinkName, URL, sogeord, kategori, Beskrivelse, Email, Rigtignavn ) \"   
strSQL = strSQL & \" VALUES(\'\" & Request.Form(\"1\") & \"\',\'\" & Request.Form(\"2\") & \"\',\'\" & Request.Form(\"sogeord\") & \"\',\"   
strSQL = strSQL & \"\'\" & Request.Form(\"kategori\") & \"\',\'\" & Request.Form(\"Beskrivelse\") & \"\',\'\" & Request.Form(\"Email\") & \"\',\"   
strSQL = strSQL & \"\'\" & Request.Form(\"Rigtignavn\") & \"\'\"   

set RS = Conn.Execute strSQL   
 
if rs.state = 1 then rs.Close     
Set rs = Nothing     
if conn.state = 1 then Conn.Close     
set Conn = Nothing   


%>

Tilføjelsen af if rs.state = 1 then forhindrer fejlmeddelelser, hvis du lukker et objekt der ikke er åbent.

Expected end of statement

/form.asp, line 29

set RS = Conn.Execute strSQL

linie 29: set RS = Conn.Execute strSQL   

Prøv lige med Set RS = conn.Execute(strSQL)

prøver lige..

Åh, mand! Du laver jo en insert til sidst, så det skal kun være Conn.Execute strSQL

:-)

Syntax error in INSERT INTO statement.

/form.asp, line 29

Og linien er:
set RS = Conn.Execute(strSQL)

Du skal slet ikke bruge noget recordset, for eksekveringen af strSQL returnerer ikke noget recordset.

Den kommer med fejl alligevel :-(
Conn.Execute strSQL

prøv at udskrive din færdige strSQL linie og post den her

Du får hele skidtet igen.
<%Response.Buffer = True%>

<%

Const adOpenKeyset = 1
Const adLockOptimistic = 3

strConnect = \"Data Source=d:\\home\\istoriadk\\db\\database.mdb;Provider=Microsoft.Jet.OLEDB.4.0;\"

Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; \"

Conn.Open strConnect

Set rs = Server.CreateObject(\"ADODB.RecordSet\")
   
SQL = \"select * from Links where UCase(URL) = UCase(\'\"& request.form(\"2\") &\"\')\"
Set RS = conn.Execute(SQL)
if not RS.EOF then
    response.write \"Findes allerede\"
    response.end
end if

strSQL = \"INSERT INTO links ( LinkName, URL, sogeord, kategori, Beskrivelse, Email, Rigtignavn ) \"   
strSQL = strSQL & \" VALUES(\'\" & Request.Form(\"1\") & \"\',\'\" & Request.Form(\"2\") & \"\',\'\" & Request.Form(\"sogeord\") & \"\',\"   
strSQL = strSQL & \"\'\" & Request.Form(\"kategori\") & \"\',\'\" & Request.Form(\"Beskrivelse\") & \"\',\'\" & Request.Form(\"Email\") & \"\',\"   
strSQL = strSQL & \"\'\" & Request.Form(\"Rigtignavn\") & \"\'\"   

Conn.Execute strSQL 
 
if rs.state = 1 then rs.Close     
Set rs = Nothing     
if conn.state = 1 then Conn.Close     
set Conn = Nothing   


%>

Du mangler en parantes til sidst, til at afslutte values()

strSQL = strSQL & \" VALUES <--HER ?
(\'\" & Request.Form(\"1\") & \"\',\'\" & Request.Form(\"

Nej... strSQL = strSQL & \"\'\" & Request.Form(\"Rigtignavn\") & \"\')\"    <-- Her

Yes så er den der 10000000 tak

Det var så lidt. Godnat zzZZZZZ

sov godt

WHAT.. du kan ikke mene at når du bruger min kode så skal jeg ikke have point... det er jo ikke fair...