Hej

Jag har precis tagit över ansvaret för att göra en ny hemsida åt en föreningen. Nu är det så att jag har försökt att lägga in ett asp-script på hemsidan (nyhetsscipt) men det går inte.

Får detta felmeddelande:
> > > Error Type:
> > > Session object, ASP 0219 (0x80004005)
> > > The specified LCID is not available.
> > > inc/settings.asp, line 12


Så jag mailade till webbhotellet (levonline.com) och fick detta svar:

"Hej Adam,

Vi har stöd för ASP i den mån ASP stöds under Linux. Då microsoft
(givetvis) inte har släppt en fullt funktionell version av ASP så är vi
beroende av 3dje partstillverkares releaser. I den release som nu har
släppts har man valt att ta bort stöd för LCID.

Vi kommer inte att återgå till det äldre systemet eftersom detta innebär
att vi inte kan hålla systemet uppdaterat för de öriga tekniker som stöds.
Levonline är ett UNIX baserat webhotell vilket vi anser är till fördel.
Givetvis får vi bekymmer med Microsoft produkter och i denna aspekt är vi
dessvärre inte lika bra som ett windows baserat hotell, detta beklagar
jag.

Tyvärr kan vi inte hjälpa dig att få igång LCID igen utan du måste koda
runt problemet.

Återkom gärna om du har någon annan fråga!

Med vänlig hälsning
Emil Waldersten"


Jag tycker det är väldigt märkligt att dom inte försöker hjälpa sina användare mera! Jag har även försökt att ringa till deras support men får samma svar som ovan.

Så nu till frågorna:

1) Hur kan jag koda runt detta problem på smidigaste sätt? (ej för avancerat)
2) Finns det något gratis hotell som stödjer ASP? (ej någon reklam eller pop-up dock!)


Tack på förhand
Adam

Först: Flytta tråden till någon ASP kategori, inte .net.

1053 som är sverigesdatum format kod fungerar tyvärr inte på SunASP (Chili!ASP), utan man får använda sig av 1043 (Tyskland), har för mig att det var tyskt iallafall.

Du kan även göra en funktion som gör Now, Date åt dig relativt enkelt.

Function _Date()
       _Date = Year & "-" & Month & "-" & Day & " " & Hour & ":" & Minute
End Function

Dom kan inte hjälpa dig mer.. det finns helt enkelt inte stöd för LCID i den version av ASP som dom har. De skulle alltså vara tvungna att installera IIS mer eller mindre för att kunna hjälpa dig med det felet

Men iaf.. bygga en egen funktion är inte så svårt..

Så vart ska jag placera denna kod?

Jag har en fin funktion som kan vara bra att använda på din server:

<%
Session.Lcid = 2057

Dim arrDB(0): arrDB(0) = "MYSQL"

Function FormatDatePart(datPart)
	Dim datTemp
	
		If Len(datPart) = 1 Then
			datTemp = "0" & datPart
		Else
			datTemp = datPart
		End If

	FormatDatePart = datTemp
End Function

Function ConvertMonth(sDate)
Dim str
    select case sDate
        case 01
            str = "Januari "
        case 02
            str = "Februari "
        case 03
            str = "Mars "
        case 04
            str = "April "
        case 05
            str = "Maj "
        case 06
            str = "Juni "
        case 07
            str = "Juli "
        case 08
            str = "Augusti "
        case 09
            str = "September "
        case 10
            str = "Oktober "
        case 11
            str = "November "
        case 12
            str = "December "
        case else
            str = "FEL! "
    end select

    ConvertMonth = str
End Function

Function ConvertDay(sDay)
Dim str2
    select case sDay
        case 1
            str2 = "Söndag "
        case 2
            str2 = "Måndag "
        case 3
            str2 = "Tisdag "
        case 4
            str2 = "Onsdag "
        case 5
            str2 = "Torsdag "
        case 6
            str2 = "Fredag "
        case 7
            str2 = "Lördag "
        case else
            str2 = "FEL! "
    end select

    ConvertDay = str2
End Function

Function FormatDatabaseDate(datDateTmp, strDateFormat, strTimeFormat)

	Dim datDateTemp, datTimeTemp, datDate
	Dim datTemp, strSeparator, datDatabaseDate, datDatabaseTime, datFull
	
	' MAKE SURE FORMAT IS ALL UPPERCASE
	datDateTemp = UCase(strDateFormat)
	datTimeTemp = UCase(strTimeFormat)

	' BEGIN REPLACING TOKENS ON DATE
	datDate	    = Replace(datDateTmp, "/", "-")
	datDateTemp = Replace(datDateTemp, "DDDD", ConvertDay(Weekday(datDate)))
	datDateTemp = Replace(datDateTemp, "DD", FormatDatePart(Day(datDate)))
	datDateTemp = Replace(datDateTemp, "MMMM", ConvertMonth(Month(datDate)))
	datDateTemp = Replace(datDateTemp, "MM", FormatDatePart(Month(datDate)))
	datDateTemp = Replace(datDateTemp, "YYYY", Year(datDate))
	datDateTemp = Replace(datDateTemp, "YY", Right(Year(datDate), 2))
	
	' BEGIN REPLACING TOKENS ON TIME
	datTimeTemp = Replace(datTimeTemp, "HH", FormatDatePart(DatePart("h", datDate)))
	datTimeTemp = Replace(datTimeTemp, "NN", FormatDatePart(DatePart("n", datDate)))
	datTimeTemp = Replace(datTimeTemp, "SS", FormatDatePart(DatePart("s", datDate)))
	
	If arrDB(0) = "MSACCESS" Then
		strSeparator = "#"
	Else
		strSeparator = "'"
	End If

	' BUILD FINAL DATE FORMAT
	datTemp = datDateTemp & " " & datTimeTemp

	FormatDatabaseDate = datTemp

End Function

Response.Write Now() & "<br/>"
Response.Write Date() & "<br/>"
Response.Write FormatDatabaseDate(Now(), "DDDD DD MMMM YYYY", "HH:NN") & "<br/>"
Response.Write FormatDatabaseDate(Now(), "YYYY-MM-DD", "HH:NN:SS") & "<br/>"
%>

Tackar så mycket.
Men om jag ska vara ärlig så kan jag inte så mycket om ASP. Har inte jobbat med det sedan gymnasiet. Och nu håller jag endast på med teknik å design.

Så vore väldigt tacksamt ifall du kunde berätta lite hur jag ska gå tillväga.
tack på förhand

Sen kan du var som helst få ut datumet i rätt format genom att använda _Date istället för Date.

Lägg in den här koden i en asp-fil:
<code>
En liten testsida.<br>
Datum och tid i rätt format: <%=_Date%>
<%
Function _Date()
Date = Year & "-" & Month & "-" & Day & " " & Hour & ":" & Minute
End Function
%>
</code>


Thomas

Ok den koden var visst inte rätt. Jag skrev om allt och delade upp datum och tiden till två funktioner.

Lägg det här i en asp-fil:
<code>
En liten testsida.<br>
Datum i rätt format: <%=Date2%><br>
Tid i rätt format: <%=Time2%>
<%
Function Date2()
Date2 = Year(Now) & "-"
strMonth = Month(Now)
If Len(strMonth) = 1 Then strMonth = "0" & strMonth
Date2 = Date2 & strMonth & "-"
strDay = Day(Now)
If Len(strDay) = 1 Then strDay = "0" & strDay
Date2 = Date2 & strDay
End Function

Function Time2()
strHour = Hour(Now)
If Len(strHour) = 1 Then strHour = "0" & strHour
strMinute = Minute(Now)
If Len(strMinute) = 1 Then strMinute = "0" & strMinute
strSecond = Second(Now)
If Len(strSecond) = 1 Then strSecond = "0" & strSecond
Time2 = strHour & ":" & strMinute & ":" & strSecond
End Function
%>
</code>

På alla sidor som du vill ha rätt format på tiden och datumet så behöver du bara kopiera in dom två funktionerna. Lägg den koden högst upp eller längst ner i asp-filen. Använd sedan Date2 och Time2.


Thomas

Jag har själv denna kod som jag skrev ner lite tidigare.
Hur du ska använda den.. hmm...

Du kan lägga in den koden i en fil som du döper till functions.asp
Sedan så tar du och lägger in denna lilla rad i början av dina asp filer som du behöver datumet till
<!-- #include file="functions.asp" -->

För att använda den så gör du antingen så här:

<%
' Måndag 25 Januari 2005 15:26
Response.Write FormatDatabaseDate(Now(), "DDDD DD MMMM YYYY", "HH:NN")

' 2005-01-25 15:26:10
Response.Write FormatDatabaseDate(Now(), "YYYY-MM-DD", "HH:NN:SS")
%>

<%=FormatDatabaseDate(Now(), "DDDD DD MMMM YYYY", "HH:NN")%>
<%=FormatDatabaseDate(Now(), "YYYY-MM-DD", "HH:NN:SS")%>

Jag har verkligen försökt att få detta att funka men jag det går verkligen inte.

Scriptet jag använder mig av är (nyhetsscript):
http://www.gruvsjo.com/main.asp?cat=script&ucat=asp&viewID=78

Ifall någon vänlig själ skulle vilja fixa in koden i scriptet och sedan maila till mig vore jag VÄLDIGT tacksam. På så vis skulle jag också lära mig hur jag ska göra med andra asp-script.

Tack så mycket på förhand
Adam Arvidsson

arvid_adam@hotmail.com

Vilket kul webbhotell, skicka iväg supporten på lite kurs så de lär sig någonting :P

>>
Vi har stöd för ASP i den mån ASP stöds under Linux. Då microsoft
(givetvis) inte har släppt en fullt funktionell version av ASP så är vi
beroende av 3dje partstillverkares releaser.
<<

Hm... Var det inte microsoft som uppfann asp..? Och drev utvecklingen av den..?