Notifikationer

Markér alle som læst Log ud

swing Nybegynder

15. juni 2001 - 10:38 Der er 2 kommentarer og
3 løsninger

IF - Else ??

Hej Eksperter - jeg har brug for jeres hjælp.

Jeg har brug for at tjekke om en record allerede findes i tabellen ProductNUM så den ikke sættes ind igen og skriver en response.write til brugeren at record allerede findes.

Koden:


<%
Dim ani
Set ani=Server.CreateObject(\"ADODB.Recordset\")
ani.Open \"Items\", \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=D:Min server\",adOpenKeyset,adLockOptimistic
ani.AddNew
ani.Fields(\"ProductNum\")=Request.Form(\"ProductNum\")

ani.Fields(\"Name\")=Request.Form(\"Name\")
ani.Fields(\"Price\")=Request.Form(\"Price\")

\' If no image then use default image

If ani.Fields(\"ImageURL\")= \"Http://\" or ani.Fields(\"ImageURL\") = \"\" Then
ani.Fields(\"ImageURL\") = \"images/no_image.jpg\"
Else
ani.Fields(\"ImageURL\")=Request.Form(\"ImageURL\")
End if

ani.Fields(\"Description\")=Request.Form(\"Description\")
ani.Fields(\"Category\")=Request.Form(\"Category\")
ani.Update
Response.Write \"Ny vare er tilføjet \" _
& \"med følgende værdier: \" _
& \"Produktnummer: \" & ani.Fields(\"ProductNum\") & \" \" _
& \"Varenavn: \" & ani.Fields(\"Name\") & \" \" _
& \"Pris: \" & ani.Fields(\"Price\") & \" \" _
& \"Sti til billede: \" & ani.Fields(\"ImageURL\") & \" \" _
& \"Beskrivelse: \" & ani.Fields(\"Description\") & \" \" _
& \"Kategori: \" & ani.Fields(\"Category\") & \"\"

ani.Close
Set ani = Nothing
%>

Synes godt om

sone Nybegynder

15. juni 2001 - 11:02 #1

SQL=\"SELECT COOUNT(*) FROM tabel WHERE ProductNum=\'\" & Request.Form(\"ProductNum\") & \"\'\"
SET RS = Conn.Execute(SQL)
IF RS(0) > 0 THEN
\' product exixts
END IF

Synes godt om

swing Nybegynder

15. juni 2001 - 11:40 #2

hmm jeg ved ikke om jeg sætter det rigtigt op

jeg får fejlen \"Object Required\"

Synes godt om

slash Nybegynder

15. juni 2001 - 12:49 #3

hvis du ikke har instansieret et rs & conn objekt er det klart du får fejlen!
set conn = server.Createobject(\"adodb.connection\")
--> her retter du det til din egen conn konfig!! conn.open \"<systemdns>\",\"uid\",\"pwd\"

SQL=\"SELECT COOUNT(*) FROM tabel WHERE ProductNum=\'\" & Request.Form(\"ProductNum\") & \"\'\"
SET RS = Conn.Execute(SQL)
IF RS(0) > 0 THEN
\' product exixts
END IF

Synes godt om

icedox Nybegynder

16. juni 2001 - 19:08 #4

dim strNavn, strPris
strPris = Request.Form(\"price\")
strNavn = Request.form(\"Name\")

SQL=\"select * from coount where ProductNum=\'\" & strName & \"\'\"
set rs = conn.execute (sql)
If (rs.eof or rs.bof) then
\' så findes navnet ikke i DB. End Of File

sql =\"insert into ProductNum(varekolonne) values(\'\"
sql = sql & strNavn & \"\')\"
conn.execute (sql)
else
\'Opdate

Synes godt om

swing Nybegynder

17. juni 2001 - 16:53 #5

Jeg fatter aldrig en skid

i deler pointene - og hvis der er en der vil lave det script, så hører jeg det gerne (og hvormange points det skal koste)

Synes godt om

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.

Følg dette spørgsmål

Opret Preview

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
ASP classic kopiere database fil på server Af bsn i ASP	7	31/10/202610:20	01/11/202620:28
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

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.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS