Feilmelding ved feil input i tekstfelt

[MarKra]

Jeg har laget et tekstfelt hvor folk skal få et resultat fra serveren avhengig av hvilken dato de oppgir i dette feltet. Hvis folk imidlertid skriver inn noe annet enn en dato og trykker på submit-knappen, får de en server error.

 

Det jeg lurer på er om det går an å lage for eksempel en If-setning for å vise en kustomisert feilmelding på siden istedenfor en server error. Omtrent slik for eksempel:

 

If [input ikke er en dato] Then
Return "Du må oppgi en gyldig dato."

 

Jeg bruker Microsoft Visual Web Developer og filene er lagret som .aspx om dette har noen betydning.

[Degeim]

Jeg tror du kan lage en Date.TryParse(textbox.text) eller Date.Parse(textbox.text) (det skal kanskje være DateTime før punktum, men du ser fort hva som fungerer ). Tryparse vil gi deg en standarddato hvis teksten ikke er en dato, og Parse vil gi deg en feilmelding.

[MarKra]

Nå skjønner jeg ikke helt hva du mener

 

Skal prøve å forklare litt bedre:

 

Oppgaven går ut på å lage en side hvor du kan få opp horoskopet for ditt stjernetegn ved å skrive inn fødselsdatoen din i et tekstfelt.

 

Siden ligger på internett og kan sees her: Astrologiportalen

 

Prøv å skriv noe annet enn en dato i tekstfeltet, så ser du server erroren jeg snakker om.

 

Det jeg vil er at det istedenfor server erroren skal komme opp en liten beskjed der hvor horoskopet vanligvis kommer opp når du skriver inn en ordentlig dato.

 

Koden ser slik ut:

 

 

 

Public Function FdsDato(ByVal FDato As Date) As String
	FDato = Request.Form("FDato")
	If FDato >= #12/22/2008# Then
		Return "Steinbukken" & "</b>" & "<br />" & "<br />" & "</center>" & _
		"Du er ambisiøs, formende, hengivende, arbeidsom og målorientert. Men du kan også ha litt mangel på spontanitet og sensitivitet, og være sta, fordømmende og kontrollerende." & _
		"<br />" & "<br />" & "<b>" & "Beste match: " & "<br />" & "</b>" & "Tyren, Jomfruen, Væren og Skytten" & "<br />" & "<b>" & "<br />" & "Element: " & "</b>" & "Jord"
	ElseIf FDato >= #11/23/2008# Then
		Return "Skytten" & "</b>" & "<br />" & "<br />" & "</center>" & _
		"Du har stor innsikt, er livlig og lærelysten, har humor, entusiasme, optimisme, toleranse og organiseringsevne." & _
		"Du har også en tendens til mental arroganse, utålmodighet og hovenhet." _
		& "<br />" & "<br />" & "<b>" & "Beste match: " & "<br />" & "</b>" & "Væren, Løven, Vannmannen og  Vekten" & "<br />" & "<b>" & "<br />" & "Element: " & "</b>" & "Ild"
	ElseIf FDato >= #10/24/2008# Then
		Return "Skorpionen" & "</b>" & "<br />" & "<br />" & "</center>" & _
		"Du har følelsesmessig dybde, er sikker og håndfast, du har en stor idealisme og streber etter høyere nivåer." & _
		"Du har også en tendens til fanatisme, selvdestruksjon, okkulte tanker, sjalusi og hevntanker, pining og besatthet." _
		& "<br />" & "<br />" & "<b>" & "Beste match: " & "<br />" & "</b>" & "Fisken, Jomfruen og Steinbukken" & "<br />" & "<b>" & "<br />" & "Element: " & "</b>" & "Vann"
	ElseIf FDato >= #9/24/2008# Then
		Return "Vekten" & "</b>" & "<br />" & "<br />" & "</center>" & _
		"Du er vennlig, høflig, kompromiss-skapende, har sjarme, eleganse, liker diplomati, likevekt og fredlighet." & _
		"Du har også en tendens til handlingssvakhet, uærlighet, smiger og koketteri." _
		& "<br />" & "<br />" & "<b>" & "Beste match: " & "<br />" & "</b>" & "Vannmannen, Tvillingen, Skytten og Løven" & "<br />" & "<b>" & "<br />" & "Element: " & "</b>" & "Luft"
	ElseIf FDato >= #8/24/2008# Then
		Return "Jomfruen" & "</b>" & "<br />" & "<br />" & "</center>" & _
		"Du er organiserende/praktisk, analytisk, veloverveiende, myk, og ettergivende. Du er også nervøs, skeptisk og lite tolerant." & _
		"<br />" & "<br />" & "<b>" & "Beste match: " & "<br />" & "</b>" & "Steinbukken, Tyren, Skorpionen og Krepsen" & "<br />" & "<b>" & "<br />" & "Element: " & "</b>" & "Jord"
	ElseIf FDato >= #7/24/2008# Then
		Return "Løven" & "</b>" & "<br />" & "<br />" & "</center>" & _
		"Du liker selvutfoldelse, er original og åpen, lojal, selvsikker og dynamisk. Du har også en tendens til å være selvopptatt og dominerende, nesten diktatorisk." & _
		"<br />" & "<br />" & "<b>" & "Beste match: " & "<br />" & "</b>" & "Skytten, Væren, Vekten og Tvillingene" & "<br />" & "<b>" & "<br />" & "Element: " & "</b>" & "Ild"
	ElseIf FDato >= #6/22/2008# Then
		Return "Krepsen" & "</b>" & "<br />" & "<br />" & "</center>" & _
		"Du er ærgjerrig og føler stor tilknytning, intuitiv, sympatisk og føler stor omsorg. Du er også mistenksom, manipulerende og kan være innesluttet." & _
		"<br />" & "<br />" & "<b>" & "Beste match: " & "<br />" & "</b>" & "Skorpionen, Fisken, Jomfruen og Tyren" & "<br />" & "<b>" & "<br />" & "Element: " & "</b>" & "Vann"
	ElseIf FDato >= #5/22/2008# Then
		Return "Tvillingene" & "</b>" & "<br />" & "<br />" & "</center>" & _
		"Du er temperamentsfull, filosofisk, intelligent, rasjonell og effektiv. Du kan også være utålmodig og rastløs, snakkesalig, barnslig og useriøs." & _
		"<br />" & "<br />" & "<b>" & "Beste match: " & "<br />" & "</b>" & "Vekten, Vannmannen, Løven og Væren" & "<br />" & "<b>" & "<br />" & "Element: " & "</b>" & "Luft"
	ElseIf FDato >= #4/21/2008# Then
		Return "Tyren" & "</b>" & "<br />" & "<br />" & "</center>" & _
		"Du er en stabil og pålitelig person, lidenskapelig partner, kunstnerisk, rolig og konkret. Du har også en tendens til å være påståelig og sta, grådig og materialistisk." & _
		"<br />" & "<br />" & "<b>" & "Beste match: " & "<br />" & "</b>" & "Jomfruen, Stenbukken, Krepsen og Fisken" & "<br />" & "<b>" & "<br />" & "Element: " & "</b>" & "Jord"
	ElseIf FDato >= #3/21/2008# Then
		Return "Væren" & "</b>" & "<br />" & "<br />" & "</center>" & _
		"Du er dynamisk, har høy avgjørelseskraft, stort initiativ og motivasjon, og er ærlig og direkte. Du har også en tendens til sinne, aggresjon, grovhet, utålmodighet, egoisme og raseri." & _
		"<br />" & "<br />" & "<b>" & "Beste match: " & "<br />" & "</b>" & "Løven, Skytten, Vannmannen og Tvillingene" & "<br />" & "<b>" & "<br />" & "Element: " & "</b>" & "Ild"
	ElseIf FDato >= #2/20/2008# Then
		Return "Fiskene" & "</b>" & "<br />" & "<br />" & "</center>" & _
		"Du er virkelighetsnær, fornuftig, snill, vurderende og planmessig. Du har også en tendens til å være humørsyk, uberegnelig og en trang til å føle deg som en martyr." & _
		"<br />" & "<br />" & "<b>" & "Beste match: " & "<br />" & "</b>" & "Krepsen, Skorpionen, Tyren og Stenbukken" & "<br />" & "<b>" & "<br />" & "Element: " & "</b>" & "Vann"
	ElseIf FDato >= #1/21/2008# Then
		Return "Vannmannen" & "</b>" & "<br />" & "<br />" & "</center>" & _
		"Du er veldig sosial, vennlig, kreativ, strålende og stolt. Du kan også være tankeløs, indirekte og svevende." & _
		"<br />" & "<br />" & "<b>" & "Beste match: " & "<br />" & "</b>" & "Tvillingen, Vekten Tyren og Skytten" & "<br />" & "<b>" & "<br />" & "Element: " & "</b>" & "Luft"
	ElseIf FDato >= #12/22/2007# Then
		Return "Steinbukken" & "</b>" & "<br />" & "<br />" & "</center>" & _
		"Du er ambisiøs, formende, hengivende, arbeidsom og målorientert. Men du kan også ha litt mangel på spontanitet og sensitivitet, og være sta, fordømmende og kontrollerende." & _
		"<br />" & "<br />" & "<b>" & "Beste match: " & "<br />" & "</b>" & "Tyren, Jomfruen, Væren og Skytten" & "<br />" & "<b>" & "<br />" & "Element: " & "</b>" & "Jord"
	Else
		Return "Beklager, det oppstod en feil."
	End If
End Function


Protected Sub Send_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Send.Click
	DittStjernetegn.InnerHtml = "<center>" & "<b>" & FdsDato(Date.Now) & "<br />" & "<br />" & "<i>" & "(Hentet fra: <a href=" & "www.sidene.no/horoskop/stjernetegn.htm" & ">Sidene.no</a>)" & "</i>"
End Sub

 

 

 

Har en Else Return [Feilmelding] på slutten av IF-setningen, men dette funker visst ikke.

[Degeim]

Prøv å legge en try-catch rundt "FDato = Request.Form("FDato")" (regner med det er her den får problemener når den prøver å legge en tekst som ikke er dato inn i Date-objektet).

 

Så kan du gjøre hva du vil i catch-delen, for eksempel skrive at det ikke er en gyldig dato.

 

Har ikke VB-syntaks i hodet nå, men tror det blir noe slikt:

 

Try
 FDato = Request.Form("FDato")
Catch
 'Skriv feilmeldingen din
 Exit sub 'det skjedde noe galt, så vi skriver ikke ut mer horoskopinformasjon
End try