Håber i kan bære over med en NewBies!!
Sidder i øjeblikket med hovedet begravet i diverse visual basic og ASP
lærebøger
og regner bestemt med at et snigende mavesår er under opsejling
(smil).
Jeg skal have uploadet dCloseDate i dansk dato format dd-mm-yy og alt
går også strygende
indtil selve SQL funktion, med overførslen af datoen til databasen,
her bliver det hele vendt 180 grader
til yy-mm-dd. Min international "setting" komputeren er sat til, er
dansk format. Jeg har også eksperimenteret
med brugen af <%@ LCID=xxxx %> med tallene 1030 og 1033. Sætter jeg
komputerens datoformat til amerikansk
går det fint hele vejen igennem med yy-mm-dd, men som sagt ved dansk
vender den sig i databasen. Jeg kunne
selvfølgelig lade det være opsat på US format, men min ISP'er kører
også dansk på serveren.
--------
Mit projekt er en modification af XcAuctionLite fra:
http://www.xcent.com/
--------
Håber på en hjælpene hånd, så min nattesøvn kan komme i normalt leje
igen..*GG*
MVH
og på forhånd tak
Per Knudsen
------------------------------------------------------------------------
<!-- #include file="auctionlib.asp" -->
<%
sUserName = Request.Form("UserName")
sPassword = Request.Form("Password")
sTitle = Request.Form("Title")
iCat = Request.Form("Category")
iDays = Request.Form("Days")
sImageURL = Request.Form("ImageURL")
sDescription = Request.Form("Description")
iStartingBid = Request.Form("StartBid")
iIncrement = Request.Form("Increment")
dCloseDate = DateAdd("d", iDays, NOW)
Call OpenDBConn
Call DoPageHeader
regSQL = ""
regSQL = regSQL & "SELECT COUNT(*) as Total FROM Registration WHERE
username = " & SQLStr(sUserName) & " AND password = " &
SQLStr(sPassword) & " "
Set regRS = GobjConnect.Execute(regSQL)
If regRS.Fields("Total") = 1 then
ValSQL = ""
ValSQL =ValSQL & "SELECT * FROM Registration
WHERE username = " & SQLStr(sUserName) & " AND password = " &
SQLStr(sPassword) & " "
set valRS = GobjConnect.Execute(ValSQL)
If valRS.Fields("Validated") = true Then
'Response.Write("Validated<BR>")
Call InsertAd
Else
'Response.Write("Not Validated<BR>")
Call PostDenied
End If
Else
Call PostDenied
End If
Sub InsertAd
userSQL = ""
userSQL = userSQL & "SELECT * FROM registration WHERE "
userSQL = userSQL & "username = " & SQLStr(sUserName) & " AND
password = " & SQLStr(sPassword)
Set UserRS = GobjConnect.Execute(userSQL)
sUserEmail = UserRS.Fields("Email")
sSQL = ""
sSQL = sSQL & "INSERT INTO Auctions
(ItemOwner, ItemTitle, CategoryID, ImageURL, Ended, EmailsSent, "
sSQL = sSQL & " AvailDate, CloseDate,
StartingBid, MinimumIncrement, CurrentBid, "
sSQL = sSQL & " CurrentBidder, Description ) "
sSQL = sSQL & " VALUES ( "
sSQL = sSQL & SQLVal(valRS.Fields("ID")) & ",
"
sSQL = sSQL & SQLStr(sTitle) & ", "
sSQL = sSQL & SQLVal(iCat) & ", "
sSQL = sSQL & SQLStr(sImageURL) & ", "
sSQL = sSQL & " false , "
sSQL = sSQL & " false , "
sSQL = sSQL & SQLDate(NOW) & ", "
sSQL = sSQL & SQLDate(dCloseDate) & ", "
sSQL = sSQL & SQLVal(iStartingBid) & ", "
sSQL = sSQL & SQLVal(iIncrement) & ", "
sSQL = sSQL & SQLVal(iStartingBid) & ", "
sSQL = sSQL & SQLVal(valRS.Fields("ID")) & ",
"
sSQL = sSQL & SQLStr(sDescription) & ") "
'Response.Write "<P>" & sSQL & "<BR>"
GobjConnect.Execute(sSQL)
Response.Write("<FONT FACE =" & chr(34) & sFont &
chr(34) & "><CENTER>")
Response.Write("Your item has been posted
successfully!<P>")
Response.Write("<A
HREF=""default.asp"">Home</A></CENTER>")
UserRS.Close
Set UserRS = Nothing
End Sub
Sub PostDenied
Response.Write("<FONT FACE =" & chr(34) & sFont & chr(34) &
"><CENTER>")
Response.Write("Sorry, but something is wrong with your
username/password.<BR>")
Response.Write("Click the ""<B>BACK</B>"" button on your
browser to try again.<BR>")
Response.Write("If you are not registered, <A
HREF=""register/register.asp"">Click Here</A> to register.<BR>")
Response.Write("If you are registered, you may not have
permission to post an item.<BR>")
Response.Write("<BR>")
End Sub
Call DoPageFooter
Call CloseDBConn
%>