Frågan#1
If Request.Form > "" Then
Call CollectData
If ValidateForms = 1 Then
VarError = "Du har inte fyllt i alla obligatoriska fält"
Call Form
Else
Set Objconn = Server.CreateObject("ADODB.Connection")
Objconn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Inetpub\wwwroot\data\XXX.mdb"
Objconn.open
[b]strSQL0 ="SELECT F_STARTNR FROM T_TEAM WHERE F_STARTNR = "&intStartnr&""
Response.Write strSQL0
set ObjRS0 = ObjConn.execute(strSQL0)
If ObjRS0.EOF Then
VarError = "Startnummret finns redan testa ett annat"
Call Form[/b]
Else
strSQL ="INSERT INTO T_TEAM(F_STARTNR, F_SKEPPARE, F_TEAM, F_ADRESS, F_BATLANGD, F_POSTNR, F_TELEBAT, F_TELE, F_VHF, F_MOBIL, F_MEDLEMMAR1, F_MEDLEMMAR2, F_MEDLEMMAR3)"&_
"VALUES("&intStartnr&", '"&strSkeppare&"', '"&strTeam&"', '"&strAdress&"', '"&strBatLangd&"', '"&strPostnr&"', '"&strTeleBat&"', '"&strTele&"', '"&strVHF&"', '"&strMobil&"', '"&strMedlemmar1&"', '"&strMedlemmar2&"', '"&strMedlemmar3&"')"
ObjConn.Execute(strSQL)
strSQL2 ="INSERT INTO T_FISKAR(F_STARTNR)VALUES("&intStartnr&")"
ObjConn.Execute(strSQL2)
ObjConn.Close
Set ObjConn = Nothing
Response.Redirect "default.asp"
End If
End If
Else
Call Form
End If
Det är asso den fet markerade koden som inte funkar som jag vill, och det jag vill är att om startnummret finns ska den säga det men det gör den inte ....varför!!
------------------
- Vet du vad det blir om en kille från Dalarna startar en tidning och en radiokanal?
- Nej.
- Mas-media.
