Hjælp til at få data sendt til database.

Prøv med dette:

<%
fejl            =    False
strTEAM1        =    Trim(Request.Form("Team1"))
strTEAM2        =    Trim(Request.Form("Team2"))
intGoal1        =    Trim(Request.Form("Goal1"))
intGoal2        =    Trim(Request.Form("Goal2"))
intLiga        =    1
intSeason      =    Session("runde")

If intGoal2 > intGoal1 then
    intUDEBANE = 1
Elseif intGoal2 = intGoal1 then
    intUDEBANE = 2
Elseif intGoal2 < intGoal1 then
    intUDEBANE = 3
End if
   
   
If intGoal1 > intGoal2 then
    intHJEM = 1
Elseif intGoal1 = intGoal2 then
    intHJEM = 2
Elseif intGoal1 < intGoal2 then
    intHJEM = 3
End if

if strTEAM1 = strTEAM2 then
    fejl = true
    session("fejltekst") = session("fejltekst") & "Det skal være 2 forskellige klubber.<br>"
end if
       
if fejl <> true then
%>
<!--#include file="db_open.asp"-->
<%
    conn.Execute("INSERT INTO 1 (Team1, Team2, Goal1, Goal2, Season, Liga) Values ('" & strTEAM1 & "', '" & strTEAM2 & "', " & intGoal1 & ", " & intGoal2 & ", " & intSeason & ", " & intLiga & ")")
    conn.Execute("INSERT INTO 2 (Teamname, WDL, Season) Values ('" & strTEAM1 & "', " & intHJEM & ", " & intSeason & ")")
    conn.Execute("INSERT INTO 2 (Teamname, WDL, Season) Values ('" & strTEAM2 & "', " & intUDEBANE & ", " & intSeason & ")")
%>
<!--#include file="db_close.asp"-->
<%
    session("tekstfrasidsteside") = session("tekstfrasidsteside") & "Kampen er nu oprettet. EVT fejl skal skrives til TDS<br>"
    Response.Redirect("default.asp")
else
    Response.Redirect("liga_wc_match_add.asp?Team1=" & strTEAM1 & "&TEAM2=" & strTEAM2 & "&Goal1=" & strGOAL1 & "&Goal2=" & intGOAL2)
end if
%>

Hmmm nej.

Den sender intet data nu.
Men den hopper til default.asp alligevel.

Jeg kan ikke rigtigt se hvad der skulle være galt.
Alle navne passer osv.

Prøv, som debug at udskrive din SQL før den bliver udført:

SQL = "INSERT INTO 1 (Team1, Team2, Goal1, Goal2, Season, Liga) Values ('" & strTEAM1 & "', '" & strTEAM2 & "', " & intGoal1 & ", " & intGoal2 & ", " & intSeason & ", " & intLiga & ")"
Response.Write "DEBUG: " & SQL & "<br>"
conn.Execute(SQL)

... i øverigt er det en meget dårlig ide at du kalder dine tabeller for hhv. 1 og 2. Måske er det der problemer opstår.

Har også omdøbt dem nu.

Men der sker bare det samme... intet.

Skal jeg poste det hele (wc_liga_match_add.asp, wc_liga_match_create.asp)
Så du kan se evt fejl?

Du kan - til at starte med - nøjes med at poste det resultat,der kommer efter mit forslag til debug-kode (05/08-2005 22:10:02).

liga_wc_match_create.asp
==================================================================
<%
%><!--#include file="db_open.asp"--><%
Set rs = Conn.Execute("SELECT Teamname FROM WC_Liga_Teams Where Liga=""1"" ORDER BY Teamname")

Dim TeamStr
TeamStr = ""

Do While Not rs.EOF
    If (TeamStr <> "") Then TeamStr = TeamStr & "|"
    TeamStr = TeamStr & rs("teamname")
    rs.MoveNext
Loop

Dim TeamArr
TeamArr = Split(TeamStr, "|")



Response.Write("<center><form action=""?liga_wc_match_create"" method=""post"">")
   
Response.Write("<table width=""75%"">")
    Response.Write("<tr>")
        Response.Write("<td width=""43%""><center>")
            Response.Write("Hjemmehold")
        Response.Write("</center></td>")
        Response.Write("<td width=""5%"">")
            Response.Write("")
        Response.Write("</td>")
        Response.Write("<td width=""4%"">")
            Response.Write("vs.")
        Response.Write("</td>")
        Response.Write("<td width=""5%"">")
            Response.Write("")
        Response.Write("</td>")
        Response.Write("<td width=""43%""><center>")
            Response.Write("Udehold")
        Response.Write("</center></td>")   
    Response.Write("</tr>")
   

    Response.Write("<tr>")
        Response.Write("<td width=""43%""><center>")
            Response.Write("<select name=""Team1"">")
                For Idx=LBound(TeamArr) To UBound(TeamArr)
                    Response.Write("<option value=""" &  TeamArr(Idx) & """>")
                    Response.Write("" & TeamArr(Idx) & "")
                    Response.Write("</option>")
                Next
            Response.Write("</center></select>")
        Response.Write("</td>")
        Response.Write("<td width=""5%""><center>")
            Response.Write("<input type=""text"" name=""Goal1"" size=""5"" maxlength=""100"" value=""" & Request.Querystring("Goal1") & """>")
        Response.Write("</td>")
        Response.Write("<td width=""4%"">")
            Response.Write("")
        Response.Write("</td>")
        Response.Write("<td width=""5%"">")
            Response.Write("<input type=""text"" name=""Goal2"" size=""5"" maxlength=""100"" value=""" & Request.Querystring("Goal2") & """>")
        Response.Write("</td>")
        Response.Write("<td width=""43%""><center>")
            Response.Write("<select name=""Team2"">")
                For Idx=LBound(TeamArr) To UBound(TeamArr)
                    Response.Write("<option value=""" &  TeamArr(Idx) & """>")
                    Response.Write("" & TeamArr(Idx) & "")
                    Response.Write("</option>")
                Next
            Response.Write("</select>")
        Response.Write("</center></td>")   
    Response.Write("</tr>")
   


Response.Write("</table>")
    Response.Write("<center><input type=""submit"" value=""Opret""></center>")   
Response.Write("</form></center>")
%><!--#include file="db_close.asp"--><%
%>
==================================================================


liga_wc_match_add.asp
==================================================================
<%
fejl            =    False
strTEAM1        =    Trim(Request.Form("Team1"))
strTEAM2        =    Trim(Request.Form("Team2"))
intGoal1        =    Trim(Request.Form("Goal1"))
intGoal2        =    Trim(Request.Form("Goal2"))
intLiga        =    1
intSeason      =    Session("runde")

If intGoal2 > intGoal1 then
    intUDEBANE = 1
Elseif intGoal2 = intGoal1 then
    intUDEBANE = 2
Elseif intGoal2 < intGoal1 then
    intUDEBANE = 3
End if
   
   
If intGoal1 > intGoal2 then
    intHJEM = 1
Elseif intGoal1 = intGoal2 then
    intHJEM = 2
Elseif intGoal1 < intGoal2 then
    intHJEM = 3
End if

if strTEAM1 = strTEAM2 then
    fejl = true
    session("fejltekst") = session("fejltekst") & "Det skal være 2 forskellige klubber.<br>"
end if
       
if fejl <> true then
%>
<!--#include file="db_open.asp"-->
<%
    conn.Execute("INSERT INTO WC_Liga_Match(Team1, Team2, Goal1, Goal2, Season, Liga) Values ('" & strTEAM1 & "', '" & strTEAM2 & "', " & intGoal1 & ", " & intGoal2 & ", " & intSeason & ", " & intLiga & ")")
    conn.Execute("INSERT INTO WC_Liga_WDL(Teamname, WDL, Season) Values ('" & strTEAM1 & "', " & intHJEM & ", " & intSeason & ")")
    conn.Execute("INSERT INTO WC_Liga_WDL(Teamname, WDL, Season) Values ('" & strTEAM2 & "', " & intUDEBANE & ", " & intSeason & ")")
%>
<!--#include file="db_close.asp"-->
<%
    session("tekstfrasidsteside") = session("tekstfrasidsteside") & "Kampen er nu oprettet. EVT fejl skal skrives til TDS<br>"
    Response.Redirect("default.asp")
else
    Response.Redirect("?site=liga_wc_match_add.asp?Team1=" & strTEAM1 & "&TEAM2=" & strTEAM2 & "&Goal1=" & intGOAL1 & "&Goal2=" & intGOAL2)
end if
%>
==================================================================

Undskyld byttede lige om på de to navne den øverste er _add og den nederste er _create.

Jeg vil som sagt hellere have debug-udskrifterne.

Undskyld det havde jeg ikke set du skrev.
Nu ved jeg ikke rigtigt debug-udskriften.

Er det ikke den fjel besked der kommer.

Der kommer ingen fejl besked
Men du kan få adgang til siden og så kan du se hvad det er den gør.

Jeg skrev hvordan du lavede noget debug i 05/08-2005 22:10:02.

... og husk så i den sammenhæng lige at udkommentere din redirect - ellers når man jo ikke at det det. ;^)

Det er den også i default.asp ;)


Jeg har indsat følgende i liga_wc_match_add.asp
(den der sender data'en) er det rigtigt?

Fo når jeg så går ind og tilføjer noget i og trykker send så sker der ikke andet end den hopper ud på default.asp

Pis nu gjorde jeg det igen.
Den er selvfølgelig tilføjet i create og ikke i Add sorry.

Prøv med det her og fortæl mig så hav der bliver udskevet på skærmen (ps. kunne ikke dy mig for at simplifisere din kode hvor det er muligt):

liga_wc_match_add.asp
==================================================================
<%
fejl = False
strTEAM1 = Trim(Request.Form("Team1"))
strTEAM2 = Trim(Request.Form("Team2"))
intGoal1 = Trim(Request.Form("Goal1"))
intGoal2 = Trim(Request.Form("Goal2"))
intLiga = 1
intSeason = Session("runde")

If intGoal2 > intGoal1 Then
    intUDEBANE = 1
    intHJEM = 3
ElseIf intGoal2 = intGoal1 Then
    intUDEBANE = 2
    intHJEM = 2
ElseIf intGoal2 < intGoal1 Then
    intUDEBANE = 3
    intHJEM = 1
End If

If strTEAM1 = strTEAM2 Then
    session("fejltekst") = session("fejltekst") & "Det skal være 2 forskellige klubber.<br>"
    ' Udkommenteret - Response.Redirect("?site=liga_wc_match_add.asp?Team1=" & strTEAM1 & "&TEAM2=" & strTEAM2 & "&Goal1=" & intGOAL1 & "&Goal2=" & intGOAL2)
Else
%>
<!--#include file="db_open.asp"-->
<%
    SQL = "INSERT INTO WC_Liga_Match(Team1, Team2, Goal1, Goal2, Season, Liga) Values ('" & strTEAM1 & "', '" & strTEAM2 & "', " & intGoal1 & ", " & intGoal2 & ", " & intSeason & ", " & intLiga & ")"
    Response.Write "DEBUG #1: " & SQL & "<br>"
    conn.Execute(SQL)

    SQL = "INSERT INTO WC_Liga_WDL(Teamname, WDL, Season) Values ('" & strTEAM1 & "', " & intHJEM & ", " & intSeason & ")"
    Response.Write "DEBUG #2: " & SQL & "<br>"
    conn.Execute(SQL)

    SQL = "INSERT INTO WC_Liga_WDL(Teamname, WDL, Season) Values ('" & strTEAM2 & "', " & intUDEBANE & ", " & intSeason & ")"
    Response.Write "DEBUG #3: " & SQL & "<br>"
    conn.Execute(SQL)
%>
<!--#include file="db_close.asp"-->
<%
    session("tekstfrasidsteside") = session("tekstfrasidsteside") & "Kampen er nu oprettet. EVT fejl skal skrives til TDS<br>"
    ' Udkommenteret - Response.Redirect("default.asp")
End If
%>

Hehe det gør ikke noget.


Men den udskriver stadig ikke noget.
Igen hopper den bare frem og viser den normale default.asp side.

Men hæng lige på 2 sek skal lige prøve noget.

Den burde ikke hoppe til default.asp - jeg har jo udkommenteret begge redirects.

Kan det tænkes at den slet ikke kommer forbi denne side - så vil der jo heller ikke komme noget i databasen.

Der har du ret i mit forsøg på at fixe mit problem lavede jeg bare et nyt det er nu rettet.


Nu udskriver den:

DEBUG #1: INSERT INTO WC_Liga_Match(Team1, Team2, Goal1, Goal2, Liga) Values ('Cralle Cool Crew', 'BK Othoniencis 02 (O)', 2, 0, 1)
DEBUG #2: INSERT INTO WC_Liga_WDL(Teamname, WDL) Values ('Cralle Cool Crew', 1)
DEBUG #3: INSERT INTO WC_Liga_WDL(Teamname, WDL) Values ('BK Othoniencis 02 (O)', 3)

Den ser da ud til at sende tingene rigtigt.

Jeg kan se at du har ændret lidt i tabellerne - men ja, ellers ser det ganske fornuftigt ud.

Der kommer heller ikke nogen fejl fra din database, så dine data burde faktisk være lagt ind i de relevante tabeller. Er de det?

Ja jeg fjernede en session så jeg kunne afprøve uden at logge på min side.

TDS

... kommer dataene i tabellerne eller ej?

Nice ja skulle lige tilføje det jeg havde fjernet.


Super du kan godt smide et svar.

Svar :^)

Husk at fjerne debugningen og slå så redirect'ningen til igen

Har jeg gjort.

Ingen tak for hjælpen

"Ingen tak" eller "Igen tak"? - det gør en meget stor forskel. ;^)

Heeh undskyld godt du forstod hvad jeg mente ;)