Avatar billede n1 Nybegynder
11. november 2003 - 15:24 Der er 14 kommentarer og
1 løsning

kontroler om telefon nummereter blevet brugt!

jeg har prøvet at bruge en "on error" kommando, men det virkede ikke helt alligevel!
Jeg er nød til at have hele dette script tilbage, hvor den kontrolerer om Tlf nummeret allerrede er blevet brugt!
Jeg er hostet ved zitechnet: http://www.zitech.net/index.asp?lmid=sp&coid=spdb dette er den oprindelige kode jeg har brugt!
tabelen jeg bruger hedder bare db og feltet den skal kontorlere hedder Tlf!
Eller man kunne lave en seperart side der kun kontrolerer det!!! jeg ved det ikke jeg er ikke så god til det!


<%
dim write

set conn = server.createobject("ADODB.connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ= " &server.mappath("../fpdb/db.mdb")


set write = server.createobject("ADODB.recordset")
wSQL ="SELECT * FROM db"
write.CursorType = 2
write.LockType = 3
write.open wSQL, conn

write.AddNew

write.fields("Navn") = request.form("Navn")
write.fields("Adr") = request.form("Adr")
write.fields("Mail") = request.form("Mail")
write.fields("Tlf") = request.form("Tlf")
write.fields("By") = request.form("By")
write.fields("sv1") = request.form("sv1")
write.fields("sv2") = request.form("sv2")
write.fields("sv3") = request.form("sv3")

Err.Clear  ' Clear the error.

write.Update


write.close
set write = Nothing
conn.close
set conn = Nothing

if request.form("klub") = "Ja" then
Response.Redirect "../faste_sider/klub.htm"
else

Response.Redirect "tak.htm"
end if
%>


det ville bare være rart hvis i kunne hjælpemig!
Avatar billede netro Nybegynder
11. november 2003 - 18:17 #1
Du sagde, du havde løst det her: http://www.eksperten.dk/spm/425245 (?)
Avatar billede kovalt Nybegynder
11. november 2003 - 18:19 #2
måske du kan bruge det her:

strSQL = "SELECT COUNT(telefonnr) AS antal FROM din_tabel WHERE telefonnr = "& var_telefonnr
rs = conn.execute(strSQL)

if CInt(rs("antal")) > 0 then
  response.write "telefonnummeret er brugt"
else
  reponse.write "Det er ikke brugt"
End if

/Kovalt
Avatar billede n1 Nybegynder
11. november 2003 - 18:50 #3
til netro
det virkede ikke alligevel med en "on error" kommando, fordi jeg hele tidenfil en fejlmelding!
Avatar billede kovalt Nybegynder
11. november 2003 - 18:56 #4
kar du bruge mit?
Avatar billede n1 Nybegynder
11. november 2003 - 18:57 #5
jeg får hele tiden "telefonnummeret er brugt" tilbage!!!
Avatar billede kovalt Nybegynder
11. november 2003 - 18:59 #6
hmmmmm...

hvis du udskriver rs("antal") hvad er den så?
Avatar billede n1 Nybegynder
11. november 2003 - 19:01 #7
nej, det virker ikke!
er det den rigtige måde jeg har skrevet det op på?

<%
On Error Resume Next
Err.Raise 6
Err.Clear

dim write

set conn = server.createobject("ADODB.connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ= " &server.mappath("../fpdb/db.mdb")

strSQL = "SELECT COUNT(tlf) AS antal FROM db WHERE tlf = "& var_tlf
rs = conn.execute(strSQL)

if CInt(rs("antal")) < 0 then
  response.write "telefonnummeret er brugt"
else

set write = server.createobject("ADODB.recordset")
wSQL ="SELECT * FROM db"
write.CursorType = 2
write.LockType = 3
write.open wSQL, conn

write.AddNew

write.fields("Navn") = request.form("Navn")
write.fields("Adr") = request.form("Adr")
write.fields("Mail") = request.form("Mail")
write.fields("Tlf") = request.form("Tlf")
write.fields("By") = request.form("By")
write.fields("sv1") = request.form("sv1")
write.fields("sv2") = request.form("sv2")
write.fields("sv3") = request.form("sv3")

write.Update


write.close
set write = Nothing
conn.close
set conn = Nothing

if request.form("klub") = "Ja" then
Response.Redirect "../faste_sider/klub.htm"
else
Response.Redirect "tak.htm"
end if
End if
%>

??
Avatar billede kovalt Nybegynder
11. november 2003 - 19:02 #8
nej du har vendt tegnet "<" forkert :-)

<%
On Error Resume Next
Err.Raise 6
Err.Clear

dim write

set conn = server.createobject("ADODB.connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ= " &server.mappath("../fpdb/db.mdb")

strSQL = "SELECT COUNT(tlf) AS antal FROM db WHERE tlf = "& var_tlf
rs = conn.execute(strSQL)

if CInt(rs("antal")) > 0 then
  response.write "telefonnummeret er brugt"
else

set write = server.createobject("ADODB.recordset")
wSQL ="SELECT * FROM db"
write.CursorType = 2
write.LockType = 3
write.open wSQL, conn

write.AddNew

write.fields("Navn") = request.form("Navn")
write.fields("Adr") = request.form("Adr")
write.fields("Mail") = request.form("Mail")
write.fields("Tlf") = request.form("Tlf")
write.fields("By") = request.form("By")
write.fields("sv1") = request.form("sv1")
write.fields("sv2") = request.form("sv2")
write.fields("sv3") = request.form("sv3")

write.Update


write.close
set write = Nothing
conn.close
set conn = Nothing

if request.form("klub") = "Ja" then
Response.Redirect "../faste_sider/klub.htm"
else
Response.Redirect "tak.htm"
end if
End if
%>


/Kovalt
Avatar billede kovalt Nybegynder
11. november 2003 - 19:03 #9
kan du ikke lige poste der hvor du tilskriver var_tlf dens værdi?
Avatar billede n1 Nybegynder
11. november 2003 - 19:04 #10
???
Avatar billede kovalt Nybegynder
11. november 2003 - 19:07 #11
den værdi som er i dit SQL:

strSQL = "SELECT COUNT(tlf) AS antal FROM db WHERE tlf = "& var_tlf

var_tlf... hvor bliver den tildelt en værdi?
Avatar billede kovalt Nybegynder
11. november 2003 - 19:10 #12
Ret det til følgende:

<%
On Error Resume Next
Err.Raise 6
Err.Clear

dim write

set conn = server.createobject("ADODB.connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ= " &server.mappath("../fpdb/db.mdb")

strSQL = "SELECT COUNT(tlf) AS antal FROM db WHERE tlf = "& request.form("tlf")
rs = conn.execute(strSQL)

if CInt(rs("antal")) > 0 then
  response.write "telefonnummeret er brugt"
else

set write = server.createobject("ADODB.recordset")
wSQL ="SELECT * FROM db"
write.CursorType = 2
write.LockType = 3
write.open wSQL, conn

write.AddNew

write.fields("Navn") = request.form("Navn")
write.fields("Adr") = request.form("Adr")
write.fields("Mail") = request.form("Mail")
write.fields("Tlf") = request.form("Tlf")
write.fields("By") = request.form("By")
write.fields("sv1") = request.form("sv1")
write.fields("sv2") = request.form("sv2")
write.fields("sv3") = request.form("sv3")

write.Update


write.close
set write = Nothing
conn.close
set conn = Nothing

if request.form("klub") = "Ja" then
Response.Redirect "../faste_sider/klub.htm"
else
Response.Redirect "tak.htm"
end if
End if
%>
Avatar billede kovalt Nybegynder
11. november 2003 - 19:10 #13
det burde virke
Avatar billede n1 Nybegynder
11. november 2003 - 19:15 #14
tak
Avatar billede kovalt Nybegynder
11. november 2003 - 19:17 #15
np og tanx for pt :-)

/Kovalt
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
Kurser inden for grundlæggende programmering

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