Please check you submission and press the confirm button. If you need make any admendments press your browser's back button.
<% Function FormatStr(Str) on Error resume next Str=Replace(Str, CHR(13), "") Str=Replace(Str, CHR(39), "") Str=Replace(Str, CHR(59), "") Str=Replace(Str, CHR(10) & CHR(10),"

") Str=Replace(Str, CHR(10), "
") FormatStr = "

" & Str & "

" End Function RecipeName=request.form("RecipeName") CurryID=request.form("CurryID") StrengthID=request.form("StrengthID") RecipeDescription=request.form("RecipeDescription") RatingNo=request.form("RatingNo") Source=request.form("Source") Vegetarian=request.form("Vegetarian") Vegan=request.form("Vegan") TimeToPrepare=request.form("TimeToPrepare") TimeToCook=request.form("TimeToCook") NumberofServings=request.form("NumberofServings") Ingredients=request.form("Ingredients") Instructions=request.form("Instructions") Notes=request.form("Notes") Sender=request.form("Sender") if Source="" then Source="Unknown" if Sender="" then Sender="Anon" if RecipeDescription="" then RecipeDescription="-" if RecipeName="" then RecipeName="-" if CurryID="" then CurryID="Unknown" if TimeToPrepare="" then TimeToPrepare="Unspecified" if TimeToCook="" then TimeToCook="Unspecified" if NumberofServings="" then NumberofServings="Unspecified" if Ingredients="" then Ingredients="-" if Instructions="" then Instructions="-" if Notes="" then Notes="-" Dim recipeLst newid=0 strCmd = "SELECT * from `Recipes`" Set recipeLst= Server.CreateObject("ADODB.Recordset") recipeLst.Open strCmd, strConn While Not recipeLst.EOF anid=Cint(recipeLst("RecipeID")) if anid>newid then newid=anid end if recipeLst.MoveNext Wend newid = newid +1 recipeLst.Close recipeLst = "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" %>
Recipe Name" & FormatStr(RecipeName) & "
Recipe Description" & FormatStr(RecipeDescription) & "
Curry Type" & CurryID &"
Strength" & StrengthID & "
Difficulty" & RatingNo & "
Source" & FormatStr(Source) & "
Vegetarian" & Vegetarian & "
Vegan" & Vegan & "
Time to prepare" & FormatStr(TimeToPrepare) & "
Time to cook" & FormatStr(TimeToCook) & "
No. of servings" & FormatStr(NumberofServings) & "
Ingredients" & FormatStr(Ingredients) & "
Instructions" & FormatStr(Instructions) & "
Notes" & FormatStr(Notes) & "
Sender" & FormatStr(Sender) & "