CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg
Cookie ikon
Avatar billede laessoe Nybegynder
04. juli 2003 - 13:11 Der er 14 kommentarer og
1 løsning

Tilføjelse af checkbox i et asp-script

Er der nogen der vil påtage sig at lave lidt programmering for mig i et eksisterende asp-script.

Jeg skal have tilføjet en checkbox med 2 funktioner.

Jeg er ikke så skarp i asp selv og har brugt det meste af en måned uden held.

Hvis nogen vl påtage sig opgaven og det virker, vil jeg blive ufattelig glad. Skriv til mig og jeg sender siderne som de ser ud nu. (cobbe@webspeed.dk)
Avatar billede paultodobom Nybegynder
04. juli 2003 - 13:58 #1
hvad går opgaven ud på?
Avatar billede c Nybegynder
04. juli 2003 - 14:32 #2
Husk altid at skrive hvad det går ud på... ellers er vi lost... vi vil jo gerne hjælper jer... men vi skal vide lidt om det... er jo ikke tankelæsere...
Avatar billede laessoe Nybegynder
04. juli 2003 - 16:19 #3
Kig her: http://www.cd-auktion.dk/QuickAuction/QAAddNewForm.asp

Det jeg kunne tænke mig er en CHECKBOX efter "Budforøgelse".

CHECKBOXENS funktion hvis den afkrydses:

1)At gøre indtastningen i "Titel" med fed (ala Star Trek ... på denne side http://www.cd-auktion.dk/QuickAuction/QAViewAuctions.asp?catID=35 bare samme font size som de øvrige varer).

og...

2) Lægge 2 kroner til brugerens konto i Databasen...

Jeg har forsøgt men kan ikke finde ud af hvilke sider jeg skal ændre i???

Var det beskrivende ???
Avatar billede eagleeye Praktikant
04. juli 2003 - 17:09 #4
Har du en kolonne i databasen for det felt så du ved at varen skal vises med fed?

Hvordan er en bruger defineret, i en session variable?
Avatar billede c Nybegynder
04. juli 2003 - 17:09 #5
ja...

i QAAddNewForm.asp skal du tilføje check boksen i selve formen.
Der hvor du gemmer auktionen skal du tilføje:
1) i et kaldet "fed" gemmes 1 hvis tjekboksen er afkrydset
2) du opdatere brugeren med SQL = "UPDATE user SET points = points+2 WHERE id="&session("id")

i filen QSViewAuction.asp skal du tilføje
if rs("fed") then
    response.write("<b>")
end if
lige før der hvor du udskriver overskrifterne.

og lige efter skal du skrive

if rs("fed") then
    response.write("</b>")
end if

hvis dette ikke hjælper dig, kan det være at du skal prøve at paste noget kode, som vi kan arbejde med.

Du skal huske at oprettet feltet fed i tabellen auctions (eller hvad den nu hedder.

mvh
Christian
Avatar billede laessoe Nybegynder
04. juli 2003 - 18:32 #6
Ok - her er QAAddNewForm.asp - jeg må indrømme at jeg ikke ved hvor jeg skal lave hvad... Jeg aner ikke hvor formen starter eller slutter... Any help?


<!-- #include file="QALib.asp" -->
<%

sUserName    = "" & RequestValue("UserName")
sPassword    = "" & RequestValue("Password")
sTitle      = "" & RequestValue("Title")
lCatID        = FVal(RequestValue("Category"))
iDays        = FVal(RequestValue("Days"))
sImageURL    = "" & RequestValue("ImageURL")
sDescription = "" & RequestValue("Description")
fStartingBid = FVal(RequestValue("StartBid"))
fIncrement  = FVal(RequestValue("Increment"))
vCloseDate  = DateAdd("d", iDays, NOW)
sErrorMsg    = ""
sCmd = "" & RequestValue("CMD")

Set objErr = CreateObject("Scripting.Dictionary")

DoPageHeader
OpenDBConn

TableHead(GLS_AddAuction)
Select Case sCmd
Case "POST"
    If CheckForm Then
        ShowPreview
    Else
        ShowForm
    End If
Case Else
    ShowForm
End Select
TableFoot
DoPageFooter
CloseDBConn
Set objErr = Nothing

Sub ShowPreview
    userSQL = "SELECT * FROM tblQARegistration WHERE " & _
                "regUserName = " & SQLStr(sUserName) & " AND regPassword = " & SQLStr(sPassword)
    Set UserRS = gobjConnect.Execute(userSQL)   
   
           
    Response.Write gsAuctionTitleOpen & GLS_PreviewItem  & gsAuctionTitleClose
    Response.Write "<P align=""CENTER"">" & gsAuctionTextOpen & GLS_PreviewInstructions & gsAuctionTextClose & "</P>"
    Response.Write "<TABLE BORDER=""0"" WIDTH=""" & giTableWidth & """ CELLSPACING=""0"" CELLPADDING=""3"" align=""CENTER"">"
    Response.Write "<TR bgcolor=""" & gsLineColor & """><TD COLSPAN=""3""> </TD></TR>"
    Response.Write "<TR bgcolor=""" & topcolor & """><TD COLSPAN=""3"" VALIGN=""bottom"">" & gsSubHeadOpen & sTitle & gsSubHeadClose & "</TD></TR>"
    Response.Write "<TR bgcolor=""" & topcolor & """><TD>" & gsLabelOpen & GLS_CurrentBidDet & gsLabelClose & gsAuctionTextOpen & "--" & gsauctionTextclose & "<BR>"
    Response.Write gsLabelOpen & GLS_ClosesDet & gsLabelClose & gsAuctionTextOpen & vCloseDate & gsAuctionTextClose & "</TD>"
    Response.Write "<TD>" & gsLabelOpen & GLS_LocationDet & gsLabelClose & gsAuctionTextOpen & UserRS.Fields("regCity") & ", " & UserRS.Fields("regState") & " " & UserRS.Fields("regCountry") & gsAuctionTextClose & "<BR>"
    Response.Write  gsLabelOpen & GLS_OwnerDet & gsLabelClose & gsAuctionTextOpen &  "<A HREF = ""mailto:" & UserRS.fields("regEmail") & chr(34) & ">" & UserRS.Fields("regUserName") & "</A>" & gsLabelClose & "<BR></TD>" 
    Response.Write "<TD>&nbsp;</TD></TR>"
    Response.Write "<TR bgcolor=""" & gsLineColor & """><TD COLSPAN=""3""> </TD></TR>"
    Response.Write "<TR><TD valign=""top"" height=""50"" COLSPAN=""3"">"
               
    Response.Write gsAuctionTextOpen & sDescription &  gsAuctionTextClose & "<P>&nbsp;</P></TD></TR>"

    'Check for image
    If LEN(TRIM(sImageURL)) > 0 Then
        Response.Write "<TR><TD colspan=""3""><CENTER><IMG BORDER=""0"" SRC=""" & sImageURL & """></CENTER></TD></TR>"
    End If
    Response.Write "<TR><TD valign=""top"" height=""50"" COLSPAN=""3"">"           
    Response.Write gsLabelOpen & GLS_NextBid & FCurrency(fStartingBid) &  gsLabelClose & "</TD></TR>"
           
    Response.Write "<FORM METHOD=""POST"" ACTION=""QAPostItem.asp"">"
    Response.Write "<TR><TD COLSPAN=""3""><HR>"
    Response.Write "<INPUT TYPE=""HIDDEN"" NAME=""UserName"" Value=""" & sUserName & """>"
    Response.Write "<INPUT TYPE=""HIDDEN"" NAME=""Password"" Value=""" & sPassword & """>"
    Response.Write "<INPUT TYPE=""HIDDEN"" NAME=""Title"" Value=""" & Server.HTMLEncode(sTitle) & """>"
    Response.Write "<INPUT TYPE=""HIDDEN"" NAME=""Category"" Value=""" & lCatID & """>"
    Response.Write "<INPUT TYPE=""HIDDEN"" NAME=""Days"" Value=""" & iDays & """>"
    Response.Write "<INPUT TYPE=""HIDDEN"" NAME=""ImageURL"" Value=""" & sImageURL & """>"
    Response.Write "<INPUT TYPE=""HIDDEN"" NAME=""Description"" Value=""" & Server.HTMLEncode(sDescription) & """>"
    Response.Write "<INPUT TYPE=""HIDDEN"" NAME=""StartBid"" Value=""" & fStartingBid & """>"
    Response.Write "<INPUT TYPE=""HIDDEN"" NAME=""Increment"" Value=""" & fIncrement & """>"
    Response.Write "<INPUT TYPE=""SUBMIT"" VALUE=""Submit""></TD><TD COLSPAN=""2"">&nbsp;</TD>"
    Response.Write "</TABLE>"
    UserRS.Close
    Set UserRS = Nothing   
End Sub

Sub ShowForm
    Response.Write "<FONT FACE=""" & gsFont & """>"
    Response.Write "<FORM METHOD=""POST"" ACTION=""QAAddNewForm.asp"">"
    Response.Write "<INPUT TYPE=""HIDDEN"" NAME=""CMD"" VALUE=""POST"">"
    Response.Write "<TABLE BORDER=""0"" CELLPADDING=""3"" CELLSPACING=""0"" WIDTH=""100%"">"
   
    'Response.Write "<TR bgcolor=" & chr(34) & gsLineColor & chr(34) & ">"
    Response.Write "<TD COLSPAN=""2"">"
    Response.Write "</TD>"
    Response.Write "</TR>"
   
    Response.Write "<TR>"
    Response.Write "<TD COLSPAN=""2"">"
    Response.Write gsSubHeadOpen & GLS_AddUserInfo & gsSubHeadClose
    Response.Write "</TD>"
    Response.Write "</TR>"
   
    Response.Write "<TR>"
    Response.Write "<TD COLSPAN=""2"">"
    Response.Write gsAuctionTextOpen & GLS_AddRegInfo & "<BR>" & GLS_HowToRegister & gsAuctionTextClose
    Response.Write "</TD>"
    Response.Write "</TR>"
   
    If objErr.Exists("LOGIN") Then
        Response.Write "<TR>"
        Response.Write "<TD COLSPAN=""2"">"
        Response.Write gsErrorTextOpen  & objErr.Item("LOGIN") & gsErrorTextClose
        Response.Write "</TD>"
        Response.Write "</TR>"
    End If
   
    Response.Write "<TR>"
    Response.Write "<TD>"& gsLabelOpen & GLS_UserNameDet & gsLabelHeadClose & "</TD>"
    Response.Write "<TD><INPUT TYPE=""TEXT"" NAME=""UserName"" VALUE=""" & sUserName & """></TD>"
    Response.Write "</TR>"
   
    Response.Write "<TR>"
    Response.Write "<TD>" & gsLabelOpen & GLS_Password & gsLabelClose & "</TD>"
    Response.Write "<TD><INPUT TYPE=""PASSWORD"" NAME=""Password""></TD>"
    Response.Write "</TR>"
   
    Response.Write "<TR>"
    Response.Write "<TD COLSPAN=""2"">"
    Response.Write "<HR>"
    Response.Write "</TD>"
    Response.Write "</TR>"
   
    Response.Write "<TR>"
    Response.Write "<TD COLSPAN=""2"">"
    Response.Write gsSubHeadOpen & GLS_AddItemInfo & gsSubHeadClose
    Response.Write "</TD>"
    Response.Write "</TR>"
   
    Response.Write "<TR>"
    Response.Write "<TD>" & gsLabelOpen & OutMatch(objErr.Exists("TITLE"), True, objErr.Item("TITLE"),GLS_Title) & gsLabelClose & "</TD>"
    Response.Write "<TD><INPUT TYPE=""TEXT"" NAME=""Title"" SIZE=""40"" value=""" & sTitle & """ MAXLENGTH=""60""></TD>"
    Response.Write "</TR>"
   
    Response.Write "<TR>"
    Response.Write "<TD>" & gsLabelOpen & OutMatch(objErr.Exists("CATEGORY"), True, objErr.Item("CATEGORY"),GLS_AddItemCat) & gsLabelClose & "</TD>"
    Response.Write "<TD>"
    Response.Write "<SELECT NAME=""Category"">"
    GetCategories
    Response.Write "</SELECT>"
    Response.Write "</TD>"
    Response.Write "</TR>"
   
   
    Response.Write "<TR>"
    Response.Write "<TD>" & gsLabelOpen & OutMatch(objErr.Exists("DAYS"),True,objErr.Item("DAYS"),GLS_AddItemNumDays) & gsLabelClose & "</TD>"
    Response.Write "<TD><INPUT TYPE=""TEXT"" NAME=""Days"" SIZE=""3"" VALUE=""" & OutMatch(iDays,0, "", iDays) & """> " & gsAuctionTextOpen & replace(GLS_MaxNumDays,"%MAX%",giMaxAuctionDays) & gsAuctionTextClose & "</TD>"
    Response.Write "</TR>"
   
    Response.Write "<TR>"
    Response.Write "<TD>" & gsLabelOpen & GLS_AddIMGURL & gsLabelClose & "<BR>" & gsAuctionTextOpen & GLS_IncludeHTTP  & gsAuctionTextClose & "</TD>"
    Response.Write "<TD><INPUT TYPE=""TEXT"" NAME=""ImageURL"" SIZE=""40"" MAXLENGTH=""255"" value=""" & sImageURL & """></TD>"
    Response.Write "</TR>"
   
    Response.Write "<TR>"
    Response.Write "<TD VALIGN=""TOP"">" & gsLabelOpen & OutMatch(objErr.Exists("DESCRIPTION"), True, objErr.Item("DESCRIPTION"),GLS_AddItemDesc) & gsLabelClose & "</TD>"
    Response.Write "<TD><TEXTAREA NAME=""Description"" COLS=""40"" ROWS=""7"">" & sDescription & "</TEXTAREA></TD>"
    Response.Write "</TR>"
   
    Response.Write "<TR>"
    Response.Write "<TD>" & gsLabelOpen & OutMatch(objErr.Exists("BID"),True, objErr.Item("BID"),GLS_AddItemStartBid) & gsLabelClose & "</TD>"
    Response.Write "<TD>" & gsMoneySymbol & "<INPUT TYPE=""TEXT"" NAME=""StartBid"" SIZE=""8"" VALUE=""" & OutMatch(fStartingBid,0,"",fStartingBid) & """></TD>"
    Response.Write "</TR>"
   
    Response.Write "<TR>"
    Response.Write "<TD>" & gsLabelOpen & GLS_AddItemMinInc & gsLabelClose & "</TD>"
    Response.Write "<TD>" & gsMoneySymbol & "<INPUT TYPE=""TEXT"" NAME=""Increment"" SIZE=""8"" VALUE=""" & OutMatch(fIncrement,0,gfDefaultBidIncrement,fIncrement) & """></TD>"
    Response.Write "</TR>"
   
    Response.Write "<TR>"
    Response.Write "<TD> &nbsp; </TD>"
    Response.Write "<TD><INPUT TYPE=""SUBMIT"" VALUE=""" & GLS_ButtonSubmit & """></TD>"
    Response.Write "</TR>"
   
   
    Response.Write "</TABLE>"
    Response.Write "</FORM></FONT>"
End Sub

Sub GetCategories
    sSQL = "SELECT * FROM tblQACategories ORDER BY catName "
    Set rs = gobjConnect.Execute(sSQL)
    If rs.eof Then
        Response.Write "<OPTION VALUE=""0"">" & GLS_AddNoCatsDefined  & "</OPTION>"
    Else
        Do While Not rs.eof
            Response.Write "<OPTION VALUE=""" & rs.Fields("catID") & """>"
            Response.Write rs.Fields("catName")
            Response.Write "</OPTION>"
            rs.MoveNext
        Loop
    End If
    rs.Close
    Set rs = Nothing
End Sub


Function CheckForm
    If len(trim(sTitle)) = 0 Then
        'sErrorMsg = sErrorMsg & GLS_NeedTitle & "<BR>"
        objErr.Add "TITLE", gsErrorTextOpen & GLS_NeedTitle & gsErrorTextClose
    End If
    If len(trim(sDescription)) = 0 Then
        'sErrorMsg = sErrorMsg & GLS_NeedTitle & "<BR>"
        objErr.Add "DESCRIPTION", gsErrorTextOpen & GLS_NeedDescription & gsErrorTextClose
    End If
    If iDays > giMaxAuctionDays OR iDays <= 0 Then
        'sErrorMsg = sErrorMsg & Replace(GLS_DaysErr, "%MAX%", giMaxAuctionDays) & "<BR>"
        objErr.Add "DAYS", gsErrorTextOpen & Replace(GLS_DaysErr, "%MAX%", giMaxAuctionDays) & gsErrorTextClose
    End If
    If fStartingBid <= 0 then
        'sErrorMsg = sErrorMsg & GLS_NeedStartingBid & "<BR>"
        objErr.Add "BID", gsErrorTextOpen & GLS_NeedStartingBid & gsErrorTextClose
    End if
    If lCatID = 0 Then
        objErr.Add "CATEGORY", gsErrorTextOpen & GLS_NoCategory & gsErrorTextClose
    End If   
    regSQL = "SELECT regValidated  FROM tblQARegistration WHERE regUserName = " & SQLStr(sUserName) & " AND regPassword = " & SQLStr(sPassword)
    'Response.Write regSQL & "<br>"
    Set regRS = gobjConnect.Execute(regSQL)
    If NOT regRS.EOF then
        If NOT EvalBool(regRS("regValidated")) Then
            objErr.Add "LOGIN", GLS_PermissionMessage
        End If
    Else
        objErr.Add "LOGIN", GLS_LoginErr
    End If
    regRS.Close
    set regRS = Nothing
    If objErr.Count > 0 Then
        CheckForm = False
    Else   
        CheckForm = True
    End If
End Function
%>
Avatar billede laessoe Nybegynder
05. juli 2003 - 01:15 #7
OK - Fremskridt - se på http://www.cd-auktion.dk/QuickAuction/QAAddNewForm.asp

Nu er checkboxen der men problemet er nu, at uanset om den er afkrydset eller ej, sender den værdien "1" til min DB (QuickAuction.mdb) i tabellen "tblAuctions" og kollonen "Bold"???

Hvorfor gør den mon det?
Avatar billede eagleeye Praktikant
05. juli 2003 - 01:20 #8
Når det er et Ja/Nej (true/false) felt i databasen så skal du gemme True eller 1 for Ja og False eller 0 for Nej.

En checkbox får man kun værdien af hvis man har sat kryds i den. Så den side som gemmer i databasen får kun værdien (value) hvis der er kryds i. Så kun kan lav et tjek på om value er tom (=false).

if Request.Form("bold") = "" then
  valgBold = false
else
  valgBold = true
end if
Avatar billede c Nybegynder
05. juli 2003 - 14:31 #9
ups...
Avatar billede laessoe Nybegynder
08. juli 2003 - 14:53 #10
HJÆÆÆLP! Nu har jeg prøvet at få checkboxen til at virke i 5 dage men er TOTALT blank - har forsøgt alt, men det virker som checkbox'en ikke sender en værdi af sted.

I min form ser checkboxen således ud:

Response.Write "<TR>"
    Response.Write "<TD>" & gsLabelOpen & GLS_Bold & gsLabelClose & "</TD>"
    Response.Write "<TD><input type=""checkbox"" name=""Bold"" value=""ON""</TD>"
    Response.Write "</TR>"

Og siden der sender til db'en:

if rsAuc("Bold") = "" then 
        valgBold = false
        else
        valgBold = true
      End If

Kollonen i db'en er sat til true/false men den retunerer FALSE uanset hvad???
Avatar billede eagleeye Praktikant
08. juli 2003 - 19:27 #11
Du skal tjekke på Request.Form("bold") = "" for at se om den er valgt rsAuc ligner et recordset??

if Request.Form("Bold") = "" then 
  valgBold = false
else
valgBold = true
End If
Avatar billede laessoe Nybegynder
08. juli 2003 - 22:53 #12
Jeg sætter stor pris på din hjælp, eagleeye, men jeg har lige forsøgt med samme resultat... Der er åbenbart et eller andet fundamentalt jeg har overset.

Kunne jeg mon sende dig siderne ?
Avatar billede eagleeye Praktikant
11. juli 2003 - 17:15 #13
Kan du vise din SQL du laver til at indsætte/opdateer DB'en?
Avatar billede laessoe Nybegynder
11. juli 2003 - 22:08 #14
OK her er de to sider:

AddNewForm.asp

<!-- #include file="QALib.asp" -->
<%
'***********************************************************
'* XCENT QuickAuction Copyright 2002 XCENT - www.xcent.com *
'* QuickAuction is a trademark of XCENT                    *
'***********************************************************

sUserName    = "" & RequestValue("UserName")
sPassword    = "" & RequestValue("Password")
sTitle      = "" & RequestValue("Title")
lCatID        = FVal(RequestValue("Category"))
iDays        = FVal(RequestValue("Days"))
sImageURL    = "" & RequestValue("ImageURL")
sDescription = "" & RequestValue("Description")
fStartingBid = FVal(RequestValue("StartBid"))
fIncrement  = FVal(RequestValue("Increment"))
aBold = "" & RequestValue("Bold")
vCloseDate  = DateAdd("d", iDays, NOW)
sErrorMsg    = ""
sCmd = "" & RequestValue("CMD")

Set objErr = CreateObject("Scripting.Dictionary")

DoPageHeader
OpenDBConn

TableHead(GLS_AddAuction)
Select Case sCmd
Case "POST"
    If CheckForm Then
        ShowPreview
    Else
        ShowForm
    End If
Case Else
    ShowForm
End Select
TableFoot
DoPageFooter
CloseDBConn
Set objErr = Nothing

Sub ShowPreview
    userSQL = "SELECT * FROM tblQARegistration WHERE " & _
                "regUserName = " & SQLStr(sUserName) & " AND regPassword = " & SQLStr(sPassword)
    Set UserRS = gobjConnect.Execute(userSQL)   
   
           
    Response.Write gsAuctionTitleOpen & GLS_PreviewItem  & gsAuctionTitleClose
    Response.Write "<P align=""CENTER"">" & gsAuctionTextOpen & GLS_PreviewInstructions & gsAuctionTextClose & "</P>"
    Response.Write "<TABLE BORDER=""0"" WIDTH=""" & giTableWidth & """ CELLSPACING=""0"" CELLPADDING=""3"" align=""CENTER"">"
    Response.Write "<TR bgcolor=""" & gsLineColor & """><TD COLSPAN=""3""> </TD></TR>"
    Response.Write "<TR bgcolor=""" & topcolor & """><TD COLSPAN=""3"" VALIGN=""bottom"">" & gsSubHeadOpen & sTitle & gsSubHeadClose & "</TD></TR>"
    Response.Write "<TR bgcolor=""" & topcolor & """><TD>" & gsLabelOpen & GLS_CurrentBidDet & gsLabelClose & gsAuctionTextOpen & "--" & gsauctionTextclose & "<BR>"
    Response.Write gsLabelOpen & GLS_ClosesDet & gsLabelClose & gsAuctionTextOpen & vCloseDate & gsAuctionTextClose & "</TD>"
    Response.Write "<TD>" & gsLabelOpen & GLS_LocationDet & gsLabelClose & gsAuctionTextOpen & UserRS.Fields("regCity") & ", " & UserRS.Fields("regState") & " " & UserRS.Fields("regCountry") & gsAuctionTextClose & "<BR>"
    Response.Write  gsLabelOpen & GLS_OwnerDet & gsLabelClose & gsAuctionTextOpen &  "<A HREF = ""mailto:" & UserRS.fields("regEmail") & chr(34) & ">" & UserRS.Fields("regUserName") & "</A>" & gsLabelClose & "<BR></TD>" 
    Response.Write "<TD>&nbsp;</TD></TR>"
    Response.Write "<TR bgcolor=""" & gsLineColor & """><TD COLSPAN=""3""> </TD></TR>"
    Response.Write "<TR><TD valign=""top"" height=""50"" COLSPAN=""3"">"
               
    Response.Write gsAuctionTextOpen & sDescription &  gsAuctionTextClose & "<P>&nbsp;</P></TD></TR>"

    'Check for image
    If LEN(TRIM(sImageURL)) > 0 Then
        Response.Write "<TR><TD colspan=""3""><CENTER><IMG BORDER=""0"" SRC=""" & sImageURL & """></CENTER></TD></TR>"
    End If
    Response.Write "<TR><TD valign=""top"" height=""50"" COLSPAN=""3"">"           
    Response.Write gsLabelOpen & GLS_NextBid & FCurrency(fStartingBid) &  gsLabelClose & "</TD></TR>"
           
    Response.Write "<FORM METHOD=""POST"" ACTION=""QAPostItem.asp"">"
    Response.Write "<TR><TD COLSPAN=""3""><HR>"
    Response.Write "<INPUT TYPE=""HIDDEN"" NAME=""UserName"" Value=""" & sUserName & """>"
    Response.Write "<INPUT TYPE=""HIDDEN"" NAME=""Password"" Value=""" & sPassword & """>"
    Response.Write "<INPUT TYPE=""HIDDEN"" NAME=""Title"" Value=""" & Server.HTMLEncode(sTitle) & """>"
    Response.Write "<INPUT TYPE=""HIDDEN"" NAME=""Category"" Value=""" & lCatID & """>"
    Response.Write "<INPUT TYPE=""HIDDEN"" NAME=""Days"" Value=""" & iDays & """>"
    Response.Write "<INPUT TYPE=""HIDDEN"" NAME=""ImageURL"" Value=""" & sImageURL & """>"
    Response.Write "<INPUT TYPE=""HIDDEN"" NAME=""Description"" Value=""" & Server.HTMLEncode(sDescription) & """>"
    Response.Write "<INPUT TYPE=""HIDDEN"" NAME=""StartBid"" Value=""" & fStartingBid & """>"
    Response.Write "<INPUT TYPE=""HIDDEN"" NAME=""Increment"" Value=""" & fIncrement & """>"
    Response.Write "<INPUT TYPE=""HIDDEN"" NAME=""Bold"" Value=""" & aBold & """>"
    Response.Write "<INPUT TYPE=""SUBMIT"" VALUE=""Submit""></TD><TD COLSPAN=""2"">&nbsp;</TD>"
    Response.Write "</TABLE>"
    UserRS.Close
    Set UserRS = Nothing   
End Sub

Sub ShowForm
    Response.Write "<FONT FACE=""" & gsFont & """>"
    Response.Write "<FORM METHOD=""POST"" ACTION=""QAAddNewForm.asp"">"
    Response.Write "<INPUT TYPE=""HIDDEN"" NAME=""CMD"" VALUE=""POST"">"
    Response.Write "<TABLE BORDER=""0"" CELLPADDING=""3"" CELLSPACING=""0"" WIDTH=""100%"">"
   
    'Response.Write "<TR bgcolor=" & chr(34) & gsLineColor & chr(34) & ">"
    Response.Write "<TD COLSPAN=""2"">"
    Response.Write "</TD>"
    Response.Write "</TR>"
   
    Response.Write "<TR>"
    Response.Write "<TD COLSPAN=""2"">"
    Response.Write gsSubHeadOpen & GLS_AddUserInfo & gsSubHeadClose
    Response.Write "</TD>"
    Response.Write "</TR>"
   
    Response.Write "<TR>"
    Response.Write "<TD COLSPAN=""2"">"
    Response.Write gsAuctionTextOpen & GLS_AddRegInfo & "<BR>" & GLS_HowToRegister & gsAuctionTextClose
    Response.Write "</TD>"
    Response.Write "</TR>"
   
    If objErr.Exists("LOGIN") Then
        Response.Write "<TR>"
        Response.Write "<TD COLSPAN=""2"">"
        Response.Write gsErrorTextOpen  & objErr.Item("LOGIN") & gsErrorTextClose
        Response.Write "</TD>"
        Response.Write "</TR>"
    End If
   
    Response.Write "<TR>"
    Response.Write "<TD>"& gsLabelOpen & GLS_UserNameDet & gsLabelHeadClose & "</TD>"
    Response.Write "<TD><INPUT TYPE=""TEXT"" NAME=""UserName"" VALUE=""" & sUserName & """></TD>"
    Response.Write "</TR>"
   
    Response.Write "<TR>"
    Response.Write "<TD>" & gsLabelOpen & GLS_Password & gsLabelClose & "</TD>"
    Response.Write "<TD><INPUT TYPE=""PASSWORD"" NAME=""Password""></TD>"
    Response.Write "</TR>"
   
    Response.Write "<TR>"
    Response.Write "<TD COLSPAN=""2"">"
    Response.Write "<HR>"
    Response.Write "</TD>"
    Response.Write "</TR>"
   
    Response.Write "<TR>"
    Response.Write "<TD COLSPAN=""2"">"
    Response.Write gsSubHeadOpen & GLS_AddItemInfo & gsSubHeadClose
    Response.Write "</TD>"
    Response.Write "</TR>"
   
    Response.Write "<TR>"
    Response.Write "<TD>" & gsLabelOpen & OutMatch(objErr.Exists("TITLE"), True, objErr.Item("TITLE"),GLS_Title) & gsLabelClose & "</TD>"
    Response.Write "<TD><INPUT TYPE=""TEXT"" NAME=""Title"" SIZE=""40"" value=""" & sTitle & """ MAXLENGTH=""60""></TD>"
    Response.Write "</TR>"
   
    Response.Write "<TR>"
    Response.Write "<TD>" & gsLabelOpen & OutMatch(objErr.Exists("CATEGORY"), True, objErr.Item("CATEGORY"),GLS_AddItemCat) & gsLabelClose & "</TD>"
    Response.Write "<TD>"
    Response.Write "<SELECT NAME=""Category"">"
    GetCategories
    Response.Write "</SELECT>"
    Response.Write "</TD>"
    Response.Write "</TR>"
   
   
    Response.Write "<TR>"
    Response.Write "<TD>" & gsLabelOpen & OutMatch(objErr.Exists("DAYS"),True,objErr.Item("DAYS"),GLS_AddItemNumDays) & gsLabelClose & "</TD>"
    Response.Write "<TD><INPUT TYPE=""TEXT"" NAME=""Days"" SIZE=""3"" VALUE=""" & OutMatch(iDays,0, "", iDays) & """> " & gsAuctionTextOpen & replace(GLS_MaxNumDays,"%MAX%",giMaxAuctionDays) & gsAuctionTextClose & "</TD>"
    Response.Write "</TR>"
   
    Response.Write "<TR>"
    Response.Write "<TD>" & gsLabelOpen & GLS_AddIMGURL & gsLabelClose & "<BR>" & gsAuctionTextOpen & GLS_IncludeHTTP  & gsAuctionTextClose & "</TD>"
    Response.Write "<TD><INPUT TYPE=""TEXT"" NAME=""ImageURL"" SIZE=""40"" MAXLENGTH=""255"" value=""" & sImageURL & """></TD>"
    Response.Write "</TR>"
   
    Response.Write "<TR>"
    Response.Write "<TD VALIGN=""TOP"">" & gsLabelOpen & OutMatch(objErr.Exists("DESCRIPTION"), True, objErr.Item("DESCRIPTION"),GLS_AddItemDesc) & gsLabelClose & "</TD>"
    Response.Write "<TD><TEXTAREA NAME=""Description"" COLS=""40"" ROWS=""7"">" & sDescription & "</TEXTAREA></TD>"
    Response.Write "</TR>"
   
    Response.Write "<TR>"
    Response.Write "<TD>" & gsLabelOpen & OutMatch(objErr.Exists("BID"),True, objErr.Item("BID"),GLS_AddItemStartBid) & gsLabelClose & "</TD>"
    Response.Write "<TD>" & gsMoneySymbol & "<INPUT TYPE=""TEXT"" NAME=""StartBid"" SIZE=""8"" VALUE=""" & OutMatch(fStartingBid,0,"",fStartingBid) & """></TD>"
    Response.Write "</TR>"
   
    Response.Write "<TR>"
    Response.Write "<TD>" & gsLabelOpen & GLS_AddItemMinInc & gsLabelClose & "</TD>"
    Response.Write "<TD>" & gsMoneySymbol & "<INPUT TYPE=""TEXT"" NAME=""Increment"" SIZE=""8"" VALUE=""" & OutMatch(fIncrement,0,gfDefaultBidIncrement,fIncrement) & """></TD>"
    Response.Write "</TR>"

    Response.Write "<TR>"
    Response.Write "<TD>" & gsLabelOpen & GLS_Bold & "</TD>"
    Response.Write "<TD><INPUT TYPE=""CHECKBOX"" NAME=""Bold""  VALUE=""" & aBold & """></TD>"
    Response.Write "</TR>"
   
    Response.Write "<TR>"
    Response.Write "<TD> &nbsp; </TD>"
    Response.Write "<TD><INPUT TYPE=""SUBMIT"" VALUE=""" & GLS_ButtonSubmit & """></TD>"
    Response.Write "</TR>"
   
   
    Response.Write "</TABLE>"
    Response.Write "</FORM></FONT>"
End Sub

Sub GetCategories
    sSQL = "SELECT * FROM tblQACategories ORDER BY catName "
    Set rs = gobjConnect.Execute(sSQL)
    If rs.eof Then
        Response.Write "<OPTION VALUE=""0"">" & GLS_AddNoCatsDefined  & "</OPTION>"
    Else
        Do While Not rs.eof
            Response.Write "<OPTION VALUE=""" & rs.Fields("catID") & """>"
            Response.Write rs.Fields("catName")
            Response.Write "</OPTION>"
            rs.MoveNext
        Loop
    End If
    rs.Close
    Set rs = Nothing
End Sub


Function CheckForm
    If len(trim(sTitle)) = 0 Then
        'sErrorMsg = sErrorMsg & GLS_NeedTitle & "<BR>"
        objErr.Add "TITLE", gsErrorTextOpen & GLS_NeedTitle & gsErrorTextClose
    End If
    If len(trim(sDescription)) = 0 Then
        'sErrorMsg = sErrorMsg & GLS_NeedTitle & "<BR>"
        objErr.Add "DESCRIPTION", gsErrorTextOpen & GLS_NeedDescription & gsErrorTextClose
    End If
    If iDays > giMaxAuctionDays OR iDays <= 0 Then
        'sErrorMsg = sErrorMsg & Replace(GLS_DaysErr, "%MAX%", giMaxAuctionDays) & "<BR>"
        objErr.Add "DAYS", gsErrorTextOpen & Replace(GLS_DaysErr, "%MAX%", giMaxAuctionDays) & gsErrorTextClose
    End If
    If fStartingBid <= 0 then
        'sErrorMsg = sErrorMsg & GLS_NeedStartingBid & "<BR>"
        objErr.Add "BID", gsErrorTextOpen & GLS_NeedStartingBid & gsErrorTextClose
    End if
    If lCatID = 0 Then
        objErr.Add "CATEGORY", gsErrorTextOpen & GLS_NoCategory & gsErrorTextClose
    End If   
    regSQL = "SELECT regValidated  FROM tblQARegistration WHERE regUserName = " & SQLStr(sUserName) & " AND regPassword = " & SQLStr(sPassword)
    'Response.Write regSQL & "<br>"
    Set regRS = gobjConnect.Execute(regSQL)
    If NOT regRS.EOF then
        If NOT EvalBool(regRS("regValidated")) Then
            objErr.Add "LOGIN", GLS_PermissionMessage
        End If
    Else
        objErr.Add "LOGIN", GLS_LoginErr
    End If
    regRS.Close
    set regRS = Nothing
    If objErr.Count > 0 Then
        CheckForm = False
    Else   
        CheckForm = True
    End If
End Function
%>

OG PostItem:

<!-- #include file="QALib.asp" -->
<%
'***********************************************************
'* XCENT QuickAuction Copyright 2002 XCENT - www.xcent.com *
'* QuickAuction is a trademark of XCENT                    *
'***********************************************************
    sUserName    = "" & RequestValue("UserName")
    sPassword    = "" & RequestValue("Password")
    sTitle      = "" & RequestValue("Title")
    lCat        = FVal(RequestValue("Category"))
    iDays        = FVal(RequestValue("Days"))
    sImageURL    = "" & RequestValue("ImageURL")
    sDescription = "" & RequestValue("Description")
    fStartingBid = FVal(RequestValue("StartBid"))
    fIncrement  = FVal(RequestValue("Increment"))
    Bold = Request.Form("aBold")
    vCloseDate  = DateAdd("d", iDays, NOW)
    lUserID = 0
   
    OpenDBConn
    DoPageHeader
    TableHead GLS_AddAuction
    regSQL = "SELECT regValidated,regID FROM tblQARegistration WHERE regUserName = " & SQLStr(sUserName) & " AND regPassword = " & SQLStr(sPassword) & " "
    Set regRS = gobjConnect.Execute(regSQL)
    If NOT regRS.EOF then
        If EvalBool(regRS("regValidated")) Then
            lUserID = FVal(regRS("regID"))
            InsertAd
        Else
            PostDenied
        End If
    Else
        PostDenied
    End If
    regRS.Close
    set regRS = Nothing
    TableFoot
    DoPageFooter
    CloseDBConn

Sub InsertAd
    Set rsAuc = Server.CreateObject("ADODB.RecordSet")
    rsAuc.Open "tblQAAuctions", gobjConnect, 1, 3, &H0002 'adOpenKeyset, adLockOptimistic, adCmdTable
    rsAuc.AddNew
    rsAuc("aucItemOwner") = lUserID
    rsAuc("aucItemTitle") = sTitle
    rsAuc("aucCategoryID") = lCat
    rsAuc("aucImageURL") = sImageURL
    rsAuc("aucEnded") = "N"
    rsAuc("aucEmailsSent") = "N"
    rsAuc("aucAvailDate") = Now
    rsAuc("aucCloseDate") = vCloseDate
    rsAuc("aucStartingBid") = fStartingBid
    rsAuc("aucMinimumIncrement") = fIncrement
    rsAuc("aucCurrentBid") = 0
    rsAuc("Bold") = aBold
    rsAuc("aucCurrentBidder") = 0
    rsAuc("aucDescription") = sDescription
    rsAuc.Update   
    lAucID = rsAuc("aucID")
    rsAuc.Close
    set rsAuc = Nothing
       
    Response.Write "<BR>" & gsAuctionTextOpen & GLS_SuccessfulPost & "<BR>"
    Response.Write GLS_PostView & "<A HREF=""QAViewItem.asp?ItemID=" & lAucID & """>" & gsAucURL  & "QAViewItem.asp?ItemID=" & lAucID & "</A>" & gsAuctionTextClose &"<BR><BR>"
End Sub

Sub PostDenied
    Response.Write "<P align=""CENTER"">" & gsAuctionTextOpen
    Response.Write  GLS_LoginErr & "<BR>"
    Response.Write  GLS_GoBack &  "<BR>"
    Response.Write     GLS_HowtoRegister & "<BR>" & GLS_PermissionMessage & gsAuctionTextClose & "</P>"
End Sub
%>
Avatar billede eagleeye Praktikant
28. juli 2003 - 16:13 #15
Prøv at rette denne linje :

aBold = "" & RequestValue("Bold")

Til:

aBold = "" & RequestValue("Bold")
if aBold = "" then
  aBold = false
else
  aBold = true
end if
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
Se alle it-kurser fra Computerworld Kurser
IT-kurser om Microsoft 365, sikkerhed, personlig vækst, udvikling, digital markedsføring, grafisk design, SAP og forretningsanalyse.
Se alle it-kurser

Flere spørgsmål fra Småopgaver kategorien

Titel Indlæg Oprettet Seneste aktivitet
Flytte mappe fra stationær til bærbar Af valby i Småopgaver 20 07/05/202520:51 10/05/202513:43
Hjælp til DC motorstyring Af axel21 i Småopgaver 7 06/03/202522:34 10/03/202518:51
Gode råd til kommende supporter Af SilentSloth i Småopgaver 4 31/12/202423:10 01/01/202515:09
Udregning af vinkel på brædder. Af Peter i Småopgaver 14 11/12/202415:12 13/12/202415:40
Dos program til at rette i .txt filer Af scharff i Småopgaver 10 11/12/202408:52 12/12/202410:45
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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester



Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 17:10 Joomla artikler Af rmadsen80 i CMS-systemer
I går 16:54 Printervalg til kontor Af tumben i Printere
I går 15:08 Http client med X509Certificate2 Af joki i C#
I går 13:02 Hjemmenetværk Af Andfer i LAN/WAN
I går 11:17 Chrombook Af lurup i Andre styresystemer
White papers
Flere white papers »


Premium
Teaser billede
Advarer om endnu en kritisk SAP-sårbarhed: Kan give fuld kontrol over systemet
Læs mere »
Om få timer træder EU’s store datalov i kraft: Det kommer det til at betyde
Microsoft opgiver ekstraregning: Nu kommer nye Copilot-løsninger ud til kunderne gratis
Vinder igen kontrakt på drift af alle danske domstoles it-systemer: Sikrer sig opgaven frem til 2032 - 18 år efter start
Se alle »
Computerworld
Teaser billede
Så meget kommer de til at koste: Apple løfter sløret for helt nye iPhones, Apple-ure og AirPods
Læs mere »
Alt om Apples spritnye iPhone Air – og hvorfor den nok vil floppe
Test af BYD Sealion: Verdens største elbil-producent har en del at lære endnu
Microsoft åbner for kildekoden til banebrydende program: Et af de få, som Bill Gates selv har kodet
Se alle »
CIO
Teaser billede
De gyldne tider som it-konsulent er forbi: Noget er i gang med at ødelægge den guldrandede forretningsmodel
Læs mere »
Er vokset 261 procent på ét kvartal: "Vi oplever en massiv interesse. Kunderne vil have kontrollen tilbage"
Københavns Kommune dropper sine planer om kæmpe migrering til Microsoft Azure
Skynd dig at opdatere: Microsoft har opdaget 86 sårbarheder - flere af dem er alvorlige
Se alle »
Job & Karriere
Teaser billede
Tryg skiller sig af med 225 it-medarbejdere: Outsourcer stor del af sin it-drift til indere
Læs mere »
Lille dansk it-virksomhed fra Vanløse lander drømmekontrakt, der rækker langt ind i stifterens pension
Her er fidusen: Sådan fastholder KMD og Twoday deres it-folk i lang tid
Medarbejderflugt? Disse danske it-selskaber har sværest ved at holde på deres it-folk
Se alle »
White paper
Teaser billede
Sådan får du succes med AI i hele organisationen
Læs mere »
IT i front: Sådan bliver netværk en strategisk driver
Sådan sikrer du nem og beskyttet adgang til dine ressourcer
Tænk nyt: Mød et stærkt oursourcing-alternativ
Se alle »

Events
Flere events »
White papers
Flere white papers »
IT-Kurser
Se alle vores it-kurser »