<%


              Dim oConn, oRs
              Dim qry, connectstr
              Dim db_name, db_username, db_userpassword
              Dim db_server

              db_server = "animalgendb.db.2722474.hostedresource.com"
              db_name = "animalgendb"
              db_username = "animalgendb"
              db_userpassword = "j2wrasWA"

              'get variables: Request.querystring("email")
              '  Request.querystring("pass")


              nameSafe = Replace(Request.Form("animalName"), "'", "''")
              regNumberSafe = Replace(Request.Form("regnumber"), "'", "''")
              breedSafe = Replace(Request.Form("breed"), "'", "''")
              colorSafe = Replace(Request.Form("color"), "'", "''")
              genderSafe = Replace(Request.Form("gender"), "'", "''")
              birthyearSafe = Replace(Request.Form("birthyear"), "'", "''")

              snameSafe = Replace(Request.Form("sname"), "'", "''")
              sregnumberSafe = Replace(Request.Form("sregnumber"), "'", "''")
              sbreedSafe = Replace(Request.Form("sbreed"), "'", "''")
              scolorSafe = Replace(Request.Form("scolor"), "'", "''")
              dnameSafe = Replace(Request.Form("dname"), "'", "''")
              dregnumberSafe = Replace(Request.Form("dregnumber"), "'", "''")
              dbreedSafe = Replace(Request.Form("dbreed"), "'", "''")
              dcolorSafe = Replace(Request.Form("dcolor"), "'", "''")


              connectstr = "Driver={MySQL ODBC 3.51 Driver};SERVER=" & db_server & ";DATABASE=" & db_name & ";USER=" & db_username & ";PASSWORD=" & db_userpassword & ";"

              Set oConn = Server.CreateObject("ADODB.Connection")
              oConn.Open connectstr


              if request.form("type") = "Horse" then

                qry = "INSERT INTO `equine` ( `name` , `regnumber` , `breed` , `color` , `gender` , `birthyear`, `sname`,`sregnum`,`sbreed`,`scolor`,`dname`,`dregnum`,`dbreed`,`dcolor`,`ownerid` ) VALUES ( '" & nameSafe & "', '" & regNumberSafe & "', '" & breedSafe & "', '" & colorSafe & "', '" & genderSafe & "', '" & birthyearSafe & "','" & snameSafe & "','" & sregnumberSafe & "','" & sbreedSafe & "','" & scolorSafe & "','" & dnameSafe & "','" & dregnumberSafe & "','" & dbreedSafe & "','" & dcolorSafe & "','" & session("uid") & "'  )"

              Set oRs = oConn.Execute(qry)

              Response.write("Animal created!  You will now be redirected.")

              else

              Response.write("Sorry, only horses are supported right now.  Please try again.")

              end if

              oConn.close

              Set oRs = nothing
              Set oConn = nothing






              %>